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PREFACE 



This manual describes the SASIC Version 3.5 language 
which operates under control of the following 
operating systems: 

NOS 1 for the CONTROL DATA® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, and 74; and 6000 
Series Computer Systems 

NOS 2 for the CDC® CYBER 170 Series; CYBER 180 
Series; CYBER 70 Models 71, 72, 73, and 74; and 
6000 Series Computer Systems 

NOS/BE 1 for the CDC CYBER 170 Series; CYBER 70 
Models 71, 72, 73, and 74; and 6000 Series 
Computer Systems 



Any reference to NOS refers to either the NOS 1 or 
NOS 2 operating system. In all instances where the 
two operating systems differ, NOS 1 or NOS 2 Is 
specified. 

CDC offers guidelines for the use of the software 
described in this manual. These guidelines appear 
in appendix E. Before using the software described 
in this manual, the reader is strongly urged to 
review the content of this appendix. The guide- 
lines recommend use of this software in a manner 
that reduces the effort required to migrate appli- 
cation programs to future hardware or software 
systems . 

BASIC 3 is an extension of the original BASIC 
language which was designed and implemented at the 
Dartmouth College Computation Center. Although 
BASIC is normally used interactively from a remote 
terminal, BASIC programs can be compiled and exe- 
cuted as batch programs. The CDC CYBER Interac- 
tive Debug (CID) facility can be used in interactive 
mode to debug a BASIC program. 

BASIC is an all-purpose programming language that 
Includes features which render it well-suited for 
scientific, business, and educational applications. 
BASIC provides a small but powerful set of easy-to- 
leam statements that are similar to English and 
written in free format. Some of the more important 
features provided by BASIC are: 

Numeric and character string manipulation 

Array definition and redimensloning 

Access to trigonometric, matrix, and string 
functions 

Facility for writing multiple-line and multiple- 
argument user-defined functions 



Facility for calling 
subroutines 



BASIC and non-BASIC 



Facility to chain to other BASIC programs 



Matrix I/O for 1- and 2-dlmensional numeric and 
string arrays 

Output format determination, including various 
commercial formats 

Manipulation of coded and binary files, includ- 
ing random access for binary files 

Error detection and processing during program 
execution 

Facility to trace program flow 

Facility to debug a program (CYBER Interactive 
Debug) 

This document is Intended to describe these and 
other BASIC features to both the nonprogrammer and 
the experienced programmer. The Information in 
this manual is provided in three major parts: 

Section 1 Is a primer or Introduction to the 
BASIC language directed at the nonprograimaer. 
Appendix H contains sample BASIC programs. 

Sections 2 through 12 include reference infor- 
mation that expands on section 1 Information 
and is directed at the experienced programmer. 
Appendixes A through D and I support and 
summarize information in these sections. 

Appendix E contains general feature use guide- 
lines to ensure ease of migration to future 
hardware or software systems and appendix F 
contains an overview of the differences between 
this version of BASIC (BASIC 3.5) and the pre- 
vious version (BASIC 3.4). Appendix G summa- 
rizes those features that are described in the 
American National Standard for Minimal BASIC as 
implementation-defined . 

The BASIC language command summary card, publication 
number 60482800, provides a convenient summary and 
brief description of the BASIC language formats. 

You can find additional pertinent Information in 
the Control Data Corporation manuals. The NOS 
Manual Abstracts and the NOS/BE Manual Abstracts 
are pocket-sized manuals containing brief descrip- 
tions of the contents and intended audience of all 
NOS and NOS/BE manuals and all the product set 
manuals of these two systems. The abstracts manuals 
can be useful in determining which manuals are of 
greatest interest to a particular user. The Soft- 
ware Publications Release History serves as a guide 
in determining which revision level of software 
documentation corresponds to the Programming System 
Report (PSR) level of installed site software. 

The manuals are listed alphabetically in groupings 
that indicate relative importance to the readers of 
this manual. 



19983900 K 



The following manuals are of primary interest: 



Publication 

Network Products Interactive Facility 
Version 1 Reference Manual 

Network Products Interactive Facility 
Version 1 User's Guide 

NOS Version 1 Reference Manual, 
Volume 1 of 2 

NOS Version 2 Reference Set, 
Volume 3 of 4, System Commands 

NOS/BE Version 1 Reference Manual 



Publication 
Number 



60455260 

60455250 

60435400 

60459680 
60493800 



NOS 1 



NOS 2 



NOS/BE 



The following manuals are of secondary interest : 



Publication 

CYBER Interactive Debug 
Version 1 Reference Manual 



Publication 
Number 



60481400 

CYBER Loader Version 1 Reference Manual 60429800 

INTERCOM Version 5 Reference Manual 60455010 

NOS Time-Sharing Version 1 User's Guide 60436400 

NOS Time-Sharing Version 1 
User's Reference Manual 

NOS Version 1 Manual Abstracts 

NOS Version 2 Manual Abstracts 

NOS/BE Version 1 Manual Abstracts 

Software Publications Release History 

Text Editor Reference Manual 

XEDIT Version 3 Reference Manual 



NOS 1 

X 
X 



NOS 2 

X 
X 



NOS/BE 



60435500 


X 






84000420 


X 






60485500 




X 




84000470 






X 


60481000 


X 




X 


60436100 


X 


X 




60455730 


X 


X 





CDC manuals can be ordered from Control Data Corporation, Literature and 
Distribution Services, 308 North Dale Street, St. Paul, Minnesota 55103. 



This product is intended for use only as described in this 
document. Control Data cannot be responsible for the proper 
functioning of undescribed features or parameters. 
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NOTATIONS 



Certain notations are used throughout this manual. 
The notations and their meanings are: 

Horizontal ellipses Indicate repe- 
tition. 

Vertical ellipsis Indicate program 
lines not shown. 



UPPERCASE Uppercase text In exan5>les of 
terminal dialog Indicates termi- 
nal output. Uppercase words in 
statement and command formats 
must appear exactly as shown. 

Lowercase Lowercase text In examples of 
terminal dialog indicates user 
input. Lowercase words in state- 
ment and command formats indicate 
values or options supplied by the 
user. 



Delta indicates a space (blank). 



^ Carriage return denotes the trans- 

mission key on the keyboard. 

Shading Shading indicates Control Data 
extensions to the language de- 
scribed in the American National 
Standard x3. 60-1978, BASIC. Lan- 
guage and processing features 
that are In the standard, but are 
Implementation-defined, are not 
shaded . 



Examples of actual terminal sessions appearing in 
this manual were produced on a class 1 terminal. 
The format of these terminal sessions might dif- 
fer slightly from the formats appearing at your 
terminal. 
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BASIC PRIMER 



Modem digital computers are designed for a wide 
range of applications. However, all digital comput- 
ers have certain common characteristics; they all 
perform tasks specified by a set of instructions. 

A set of sequential instructions designed to solve 
a specific problem is called a program. A program 
can perform a simple task, such as adding or sub- 
tracting two numbers, or printing a single letter 
or digit. However, a program usually performs a 
more complicated task. A program for a complete 
scientific computation could require a few thousand 
computer instructions. 

Computer programs process or manipulate information 
called data. A program can be used to perform 
calculations by using data, and to print out the 
results. Most programs permit new data to be input 
each time the program is used. The three phases of 
program operation are input, computation, and out- 
put. The process of a program performing tasks in 
a computer is called program execution, or running 
a program. 



T = F + C*V. If the revenue per unit made (and 
sold) is R per unit, then the total annual revenue 
is Rl = R*V. The profit obtained on an annual 
basis is the difference between Rl and T, if that 
result is positive. A loss occurs if Rl - T is 
negative. The break-even point is reached when the 
volume is sufficient to make Rl = T. 

For example, a company operates with fixed costs of 
$1 million per year, variable costs of $10 per 
unit, and a revenue of $30 per unit of production. 
Using this data, answer the following questions: 

1. What is the break-even point? 

2. If the predicted sales are 25000 units, what is 
the expected profit or loss? 

3. What is the expected profit or loss for sales 
of 50000, 75000, and 100000 units? 

The BASIC program in figure I-l answers questions 1 
and 2 of the problem. The solution to question 3 
is provided later in this section. 



PROGRAMMING AND LANGUAGES 

Computers can execute thousands and even millions 
of computer instructions each second; therefore, 
computer instructions must be structured in a form 
suited to the computer's architecture. Writing a 
program by using computer instructions in the form 
used directly by the computer (machine instructions) 
is tedious and time-consuming. In order to sim- 
plify writing programs, computer specialists have 
developed several high-level, easy-to-use, program- 
ming languages and associated compilers and trans- 
lators to convert these high-level languages to 
machine instructions. BASIC, the beginner's all- 
purpose symbolic instruction code, is one such 
high-level language. BASIC was originally developed 
by professors John G. Kemeny and Thomas E. Kurtz at 
Dartmouth College. 

This section describes the process of writing and 
executing a BASIC program by solving a sample prob- 
lem. The BASIC statements used in solving the 
problem are explained. This section is intended 
for nonprogrammers. This section provides the 
information necessary to write BASIC progreims and 
understand the more detailed descriptions of the 
BASIC language provided in the sections that follow 
this section. 



STATEMENT OF THE PROBLEM 

The following general description outlines a manu- 
facturing system problem that is to be solved by 
using BASIC. In this problem, F represents fixed 
costs per year associated with production, C repre- 
sents variable costs incurred per unit, and V rep- 
resents the annual volume of production (and sales) 
in units. The total cost incurred per year is 



001 REM THIS IS A BREAK-EVEN PROGRAM 

002 REM THE FOLLOWING VARIABLES ARE USED 

003 REM FIXED ANNUAL COST F 

004 REM VARIABLE COST PER UNIT C 

005 REM SALES REVENUE PER UNIT R 

006 REM SALES VOLUME v 

007 REM BREAK-EVEN POINT (VOLUME) VI 

008 REM TOTAL COST T 

009 REM TOTAL REVENUE Rl 

010 REM PRO FIT /LOSS p 

011 REM 

012 REM 

013 REM ASSIGN VALUES TO F, C, R, V 
020 LET F=1 000000 

030 LET C=10 

040 LET R=30 

050 LET V=25000 

060 REM 

070 REM COMPUTE BREAK-EVEN POINT 

O80 LET V1=F/(R-C) 

O90 PRINT "BREAK-EVEN P0INT="';V1; "VOLUME UNITS" 

100 REM 

110 REM COMPUTE TOTAL COST 

120 LET T=F+C*V 

130 REN 

140 REM COMPUTE TOTAL REVENUE 

150 LET R1=R*V 

160 REN 

170 REM COMPUTE PROFIT/LOSS 

180 LET P=R1-T 

200 IF V>V1 THEN 230 

210 PRINT "LOSS = $";- P,"VOLUME =";V; "UNITS" 

220 GOTO 240 

230 PRINT "PROFIT=$";P,"VOLUHE=";V;"UNITS" 

240 END 



Figure 1-1. Break-Even Program 
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ANALYSIS OF STATEMENTS 

Each line of a BASIC program is called a statement; 
each statement must begin with a line number. Line 
numbers normally indicate the sequence in which the 
computer is to execute the statements. The follow- 
ing statements are used in the break-even program 
shown in figure 1-1. 



REM Statement 

Figure 1-2 shows a segment of the break-even pro- 
gram that contains the REM statement. The REM 
statement allows the user to Insert remarks. These 
remarks increase readability and comprehension in a 
program; they have no effect on the program during 
execution. A maximum of 150 characters can be 
included in a REM statement. 



001 REM 


THIS IS A BREAK-EVEN PROGRAM 


002 REM 


THE FOLLOWING VARIABLES ARE USED 


003 REM 


FIXED ANNUAL COST F 


004 REM 


VARIABLE COST PER UNIT C 


005 REM 


SALES REVENUE PER UNIT R 


006 REM 


SALES VOLUME V 


007 REM 


BREAK-EVEN POINT (VOLUME) VI 


008 REM 


TOTAL COST T 


009 REM 


TOTAL REVENUE R1 


010 REM 


PROFIT/LOSS P 


Oil REM 




012 REM 





Figure 1-2. REM Statement Lines 

Figure 1-2 shows the use of the REM statement to 
identify the type of program, the variables used, 
and the variable identifiers. These identifiers 
are used later in program computations. 



LET Statement 

The LET statement specifies that the variable 
(quantity that can vary during execution of the 
program) to the left of the equals sign be set to a 
value (the value is the formula or expression to 
the right of the equals sign). 



Examples: 



Constant Value Assignment - Statements 20 
through 50 of the program in figure 1-3 assign 
values to variables F, C, R, and V, which are 
used later in computing the break-even point. 
The values for F, C, and R represent dollars 
and the value for V represents units. 

Formula Value Assignment - In the program in 
figure 1-4, statements 120, 150, and 180 com- 
pute total cost, total revenue, and profit or 
loss, respectively, and assign these values to 
variables T, Rl , and P. The symbol * specifies 
multiplication. The value of the variable or 
expression to the right of the equals sign 
becomes the value of the variable to the left 
of the equals sign. BASIC conforms to the 
normal algebraic rules for order of arithmetic 
computation. (See Arithmetic Expressions in 
this section.) 





• 














013 REM ASSIGN VALUES 
020 LET F =1000000 
030 LET C=10 
040 LET R=30 
050 LET V=25000 

• 


TO 


F/ 


c. 


K 


V 




• 















Figure 1-3. LET Statement Lines (Constants) 



110 REM 


COMPUTE TOTAL COST 


120 LET 


T=F+C*V 


130 REM 




140 REM 


COMPUTE TOTAL REVENUE 


150 LET 


R1=R*V 


160 REM 




170 REM 


COMPUTE PRO FIT /LOSS 


180 LET 


P=R1-T 


• 





Figure 1-4. LET Statement Lines (Formulas) 

Statement 120 directs the computer to multiply V 
(25000) by C (10) and add the product (250000) to F 
(1000000) equaling a sum of 1250000. This sum is 
assigned to the variable T. 



In computing total revenue, the volume (V) is mul- 
tiplied by the revenue per unit (R) (25000 * 30), 
and the product (750000) is assigned to Rl. 



To determine profit or loss, the total cost (T) is 
subtracted from the total revenue (Rl): (750000 - 
1250000) and the remainder (-500000) is assigned 
to P. 



PRINT Statement 

The PRINT statement can be used to: print out a 
value; print a message; print a combination of a 
value and a message; and print a blank line. BASIC 
normally separates an output line into five print 
zones, each 15 characters long. Spacing is con- 
trolled with commas and semicolons embedded in the 
PRINT statement. The comma is used to space over 
to the next print zone (insert blank spaces between 
items); the semicolon permits items to be printed 
with no additional blanks between them. When 
printing headings or labels, enclose the heading or 
label in quotes in the PRINT statement. To print a 
blank line, simply use the PRINT statement without 
specifying what to print. 



Statement 080 in figure 1-5 illustrates the assign- 
ment of a value to a variable by using the LET 
statement. Statement 090 illustrates the use of 
the PRINT statement to print an identifying label 
and the derived value. 



1-2 
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070 REM COMPUTE BREAK-EVEN POINT 

080 LET V1=F/(R-C) 

090 PRINT "BREAK-EVEN P0INT=";V1; "VOLUME UNITS" 

100 REN 



Figure 1-5. PRINT Statement Lines 

Statement 080 directs the computer to subtract C 
from R (30-10) and, by using the remainder (20) as 
a divisor, divide F (1000000) by 20. The quotient 
(50000) is then assigned to the variable VI. (The 
symbol / indicates divide.) Statement 090 directs 
the computer to print the value of VI and the BREAK- 
EVEN POINT identifying label. The unit of measure 
for VI Is labeled VOLUME UNITS. When executed, 
this PRINT statement in figure 1-5 produces: 

BREAK-EVEN P0INT= 50000 VOLUME UNITS 



IF, GOTO, and END Statements 

In the sample program (figure 1-1), if sales volume 

V is greater than the break-even volume, a profit 
is earned. If the sales volume is less than the 
break-even volume, a loss is Incurred. 

The IF statement at line number 200 in figure 1-6 
directs the program execution to the statement at 
line number 230, if the condition V is greater than 

VI is met. The IF statement directs execution to 
the statement at line number 210, if the condition 
is not met. Line 200 Illustrates how execution 
sequence by line number can be altered. 



200 IF V>V1 THEN 230 

210 PRINT "LOSS = $";-P,"VOLUNE =";V; "UNITS" 

220 GOTO 240 

230 PRINT "PROFIT =$";P,"VOLUHE=";V; "UNITS" 

240 END 



BREAK-EVEN PROGRAM AND OUTPUT 

Figure 1-7 shows the break-even program and the 
output that answers questions 1 and 2. After the 
program is entered into the computer, the BASIC 
compiler is directed to compile and execute the 
program. 



001 REN THIS IS A BREAK-EVEN PROGRAM 

002 REN THE FOLLOWING VARIABLES ARE USED 

003 REM FIXED ANNUAL COST F 

004 REM VARIABLE COST PER UNIT C 

005 REM SALES REVENUE PER UNIT R 

006 REM SALES VOLUME V 

007 REM BREAK-EVEN POINT (VOLUME) VI 

008 REM TOTAL COST T 

009 REM TOTAL REVENUE R1 

010 REN PROFIT/LOSS P 

011 REN 

012 REN 

013 REM ASSIGN VALUES TO F, C, R, V 
020 LET F=1 000000 

030 LET C=10 

040 LET R=30 

050 LET V=25000 

060 REM 

070 REN COMPUTE BREAK-EVEN POINT 

080 LET V1=F/(R-C) 

090 PRINT "BREAK-EVEN POINT =";V1; "VOLUME UNITS" 

100 REM 

110 REM COMPUTE TOTAL COST 

120 LET T=F+C*V 

130 REN 

140 REN CONPUTE TOTAL REVENUE 

150 LET R1=R*V 

160 REN 

170 REN CONPUTE PROFIT/LOSS 

180 LET P=R1-T 

200 IF V>V1 THEN 230 

210 PRINT "LOSS = $";-P,"VOLUHE =";V; "UNITS" 

220 GOTO 240 

230 PRINT "PROFIT=$";P,"VOLUNE=";V; "UNITS" 

240 END 

After the program is entered into the computer, 
the BASIC compiler is directed to compile and 
execute the program. Below is the output after 
program execution. 



BREAK-EVEN POINT= 50000 VOLUNE UNITS 

LOSS = $ 500000 VOLUNE = 25000 UNITS 



Figure 1-6. IF, GOTO, and END 
Statement Lines 



Figure 1-7. Break-Even Program and Output 



The IF statement (line 200) selects the print label 
PROFIT or LOSS to be printed with the values asso- 
ciated with variables P and V. 

In figure 1-6, the PRINT statement at line number 
210 is executed because V = 25000 and VI = 50000. 
After executing the PRINT statement, the computer 
executes statement 220. Statement 220 is a GOTO 
statement that directs the computer to continue 
execution at statement 240. 

The END statement directs the computer to stop 
executing the BASIC program. Its corresponding 
line number must be the highest in the program. 



EXPRESSIONS IN BASIC 

An expression can be simple, that is, consisting of 
one term (A); or complex, that is, consisting of 
two or more terms connected by operators (A+B-C). 
Expressions evaluate to a single value, which can 
be used later in computation, or can be used in 
determining program execution sequence. (See line 
number 200.) There are three types of expressions 
in BASIC: arithmetic, relational, and string. 
Arithmetic and relational expressions are discussed 
in the following paragraphs and in section 2; 
string expressions are discussed in section 2 of 
this manual. 
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ARITHMETIC EXPRESSIONS 



TABLE 1-2. RELATIONAL OPERATORS 



Arithmetic expressions are formed from numeric 
variables, numeric constants, function references, 
and arithmetic operators. The arithmetic operators 
allowed for BASIC are shown In table 1-1. 

TABLE 1-1. ARITHMETIC OPERATORS 



Symbol 


Meaning 


/N et-'^- 


Exponentiation ( t on 
some teletypewriters) 


/ 


Division 


* 


Multiplication 


+ 


Addition 


- 


Subtraction 


NOTE 


The circumflex (a) is the preferred character 
symbol for exponentiation. See Future System 
Migration Guidelines, appendix E. 



In the sample break-even program, operators (+, -, 
*, and /) are used in line numbers 080, 120, 150, 
and 180. The exponentiation operator raises a num- 
ber to a specified power. For example, 2**3 means 
2 raised to the third power , or 23 . 

The arithmetic operators have a hierarchy for 
evaluation: exponentiation; multiplication and 
division; addition and subtraction. Evaluation 
proceeds from left to right through an expression. 
The hierarchy is altered by the use of parenthe- 
ses. Vnien using parentheses in BASIC, the rules 
of algebra apply. For example, 2*3+2 = 8 and 
2*(3+2) =10. 

Within a number in BASIC, commas cannot be used 
to separate decimal groupings. For example, ten 
million is written 10000000, not 10,000,000. 

A nimierlc variable (such as F, C, R, or V in the 
sample program) Is named with a single alphabetic 
character or an alphabetic character followed by a 
digit. The detailed rules for using numbers and 
variables are Included in section 2. 

BASIC provides several mathematical functions that 
can be requested within an arithmetic expression 
such as SIN (sine), COS (cosine), and SQR (square 
root), Functions are described in section 5. 



RELATIONAL EXPRESSIONS 

Relational expressions are formed by combining 
variables and/or constants into arithmetic ex- 
pressions that are compared by using relational 
operators. Relational expressions are used in IF 
statements to compare two values. Table 1-2 illus- 
trates the relational operators. 



Symbol 


Meaning 


= 


Equal to 


<> or^H 


Not equal to 


> 


Greater than 


>=or»i 


Greater than or equal to 


< 


Less than 


< = or ^B 


Less than or equal to 



An example of the use of the relational operator 
can be found in line number 200 of the sample break- 
even program. For more details and the rules for 
using relational operators, see section 2. 



DEFINING AND READING DATA 

An efficient method of assigning values to variables 
is through the use of the READ and DATA statements. 



DATA AND READ STATEMENTS 

In the break-even program, values are assigned 
to variables by using LET statements as shown in 
figure 1-8. 



• 












013 REN 
020 LET 
030 LET 
040 LET 
050 LET 
060 REM 

• 


ASSIGN VALUES 

F =1000000 

C=10 

R=30 

V=25000 


TO F, 


c. 


R, 


V 


• 













Figure 1-8. LET Statement Value Assignment 

Statements at line numbers 020 through 050 can be 
replaced with the following: 

035 DATA 1000000,10,30,25000 
037 READ F,C,R,V 



The DATA statement creates a block of data that is 
internal to the program. Within the DATA state- 
ment, values must be separated by commas. In the 
above program, the DATA statement precedes the READ 
statement; however, this is not required. The DATA 
statement can be placed anywhere in the program. 
The READ statement is used to access the values 
contained in the internal data block. The vari- 
ables in the READ statement are assigned values 
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sequentially from the data block; for example, F = 
1000000, C - 10, R = 30, and V = 25000. This method 
is more efficient from the programmer's standpoint 
because only the associated DATA statements need to 
be changed for added or different data. Figure 1-9 
illustrates the use of the READ and DATA statements 
in the break-even program. 



001 REM THIS IS A BREAK-EVEN PROGRAM 

002 REM THE FOLLOWING VARIABLES ARE USED 

003 REM FIXED ANNUAL COST F 

004 REM VARIABLE COST PER UNIT C 

005 REM SALES REVENUE PER UNIT R 

006 REM SALES VOLUME V 

007 REM BREAK-EVEN POINT (VOLUME) VI 



T 

R1 

P 



008 REM TOTAL COST 

009 REM TOTAL REVENUE 

010 REM PROFIT/LOSS 
Oil REM 

012 REM 

013 REM ASSIGN VALUES TO F, C, R, V 
035 DATA 1000000,10,30,25000 

037 READ F,C,R,V 

060 REM 

070 REM COMPUTE BREAK-EVEN POINT 

080 LET V1=F/(R-C) 

090 PRINT "BREAK-EVEN POINT="; VI; "VOLUME UNITS" 

100 REM 

110 REM COMPUTE TOTAL COST 

120 LET T=F+C*V 

130 REN 

140 REM COMPUTE TOTAL REVENUE 

150 LET R1=R*V 

160 REM 

170 REM COMPUTE PROFIT/LOSS 

180 LET P=R1-T 

200 IF V>V1 THEN 230 

210 PRINT "LOSS = $";-P, "VOLUME =";V;"UNITS" 

220 GOTO 240 

230 PRINT "PROFIT =$";P,"VOLUME=";V; "UNITS" 

240 END 



When executed, this program produces: 



BREAK-EVEN POINT= 50000 VOLUME UNITS 

LOSS = $ 500000 VOLUME = 25000 UNITS 



Figure 1-9. Break-Even Program With 
READ and DATA Statements 



IF AND GOTO STATEMENTS 

In the original problem, question 3 requests the 
profit or loss for sales of values 50000, 75000, 
and 100000 units. To solve questions 1 and 2 of 
the problem for these four values, a loop is in- 
serted using the IF statement (line number 104 in 
figure 1-10) and the GOTO statement (line number 
236). 

In figure 1-10, V is assigned the initial value of 
25000 (line number 102). The statement of line 
number 104 then compares V to 100000. If V is 
greater than 100000, control is transferred to line 
number 240 and the loop ends. If V is not greater 
than 100000, line numbers 110 through 236 are exe- 
cuted in the normal sequence. The statement at 
line 235 increments V by 25000, and the statement 
at line 236 transfers control back to line 104. 
The statement at line number 104 compares the new 
value of V to 100000 to determine whether or not to 
execute the loop again. Looping continues until V 
is greater than 100000. 

For each value of V, the values of T, Rl , and P are 
computed, and LOSS or PROFIT is printed depending 
on the value of V; this completes the execution of 
the loop In the break-even program. 

During the first pass through the loop, V equals 
25OO0; during the second pass, V equals 50000; dur- 
ing the third pass, V equals 75000; and during the 
fourth pass, V equals 100000. The printed output 
from the program shows the break-even point and the 
profit or loss for the four volume levels. 



FOR AND NEXT STATEMENTS 

The sample program in figure 1-11 shows a loop 
created by using the FOR statement (line number 
101) and the NEXT statement (line number 235). 

The FOR statement establishes the first value of V 
(25000), the final allowable value of V (100000), 
and the step value of (25000). Statements between 
the FOR statement and the NEXT statement are repeat- 
edly executed until V is greater than the final 
allowable value. The value of V is Incremented by 
the step value each time the NEXT statement is exe- 
cuted. Output from the program is identical to the 
output produced when the IF and GOTO statements 
controlled the loop. 



LOOPING IN BASIC 

We are frequently interested In solving a problem 
in which a specified sequence of statements is exe- 
cuted a number of times. Each time the sequence is 
executed, a variable is assigned a different value. 
In programming, this is done by using a technique 
called looping. The following statements provide 
two methods for looping: 

IF and GOTO statements 
FOR and NEXT statements 



LISTS AND TABLES 

For some problems, it is desirable to present data 
or the solution In the form of a list or table; 
such lists and tables are called arrays. An array 
is an ordered collection of items (data elements) 
arranged in a multidimensional structure. A 1- 
dimensional array, or list, is called a vector and 
a 2-dimensional array, or table, is called a matrix. 
These terms have been borrowed from mathematical 
terminology because vectors and matrices in BASIC 
obey other special properties expected by mathe- 
maticans. Arrays with three dimensions can also 
be'-^dsed . 
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001 REN THIS IS A BREAK-EVEN PR06RAN 


007 REN THE FOLLOWING 


VARIABLES ARE USED 


003 REN FIXED ANNUAL ( 


:0ST 


F 


004 REN VARIABLE COST 


PER UNIT 


C 


OOS REN SALES REVENUE 


PER UNIT 


R 


006 REN SALES VOLUNE 




V 


007 REN BREAK-EVEN POINT (VOLUHE> 


VI 


008 REN TOTAL COST 




T 


009 REN TOTAL REVENUE 




R1 


010 REN PROFIT/LOSS 




P 


Oil REN 






012 REN 






013 REN ASSIQH VALUES 


TO F, C, R 




035 DATA 1000000,10,30 




037 READ F,C,R 






060 REN 






070 REN CONPUTE BREAK- 


■EVEN POINT 




080 LET V1=F/(R-C) 






090 PRINT "BREAK-EVEN 


P0INT=";V1; 


"VOLUNE UNITS 


100 REN 






102 LET V = 25000 






104 IF V>1 00000 THEN 240 




110 REN CONPUTE TOTAL 


COST 




120 LET T=F+C*V 






130 REN 






140 REN CONPUTE TOTAL 


REVENUE 




150 LET R1=R*V 






160 REN 






170 REN COMPUTE PROFIT/LOSS 




180 LET P=R1-T 






200 IF V>V1 THEN 230 






210 PRINT "LOSS = $";■ 


-P,"VOLUNE = 


";V;"UNITS" 


220 GOTO 235 






230 PRINT "PROFIT=$";P,"VOLUHE="; 


V;"UNITS" 


235 LET V = V + 25000 






236 GOTO 104 






240 END 







When executed, this program produces: 



BREAK-EVEN POINT= 50000 VOLUNE UNITS 

LOSS = $ 500000 VOLUNE = 25000 UNITS 

LOSS = $ VOLUNE = 50000 UNITS 

PR0FIT=$ 500000 V0LUNE= 75000 UNITS 

PR0FIT=$ I.OOOOOE-i'6 V0LUHE= 100000 UNITS 



Figure 1-10. Break-Even Program With IF and GOTO Statements 



Variables are used to name arrays. The Individual 
elements of an array, identified by the use of sub- 
scripts, are called subscripted variables. The 
subscripts, one for ieach dimension of the array, 
are position indicators that locate elements within 
the array. Subscripts are separated by commas and 
enclosed by parentheses. The first matrix sub- 
script designates a row; the second matrix sub- 
script designates a column. Numbering of the 
elements begins with zero; the first element in the 
first row and the first column has subscripts (0,0). 

Example: 

In the following matrix, the element designated 
. by A(l,2) is circled. 



12 3 4 
5 6 (7) 8 
9 10 11 12 



In the break-even program, where the profit or loss 
for four different sales volumes Is computed, the 
values V, P, T, and Rl can be organized in array 
form, with each array containing four elements. 
For each volume (V), an associated revenue (Rl), 
cost (T), and profit (P) are computed. 
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001 REM THIS IS A BREAK-EVEN PROGRAM 

002 REM THE FOLLOWING VARIABLES ARE USED 

003 REM FIXED ANNUAL COST F 

004 REM VARIABLE COST PER UNIT C 

005 REM SALES REVENUE PER UNIT R 

006 REM SALES VOLUME v 

007 REM BREAK-EVEN POINT CVOLUME) VI 

008 REM TOTAL COST t 

009 REM TOTAL REVENUE R1 

010 REM PRO FIT/ LOSS p 

011 REM 

012 REM 

013 REM ASSIGN VALUES TO F, C, R, V 
035 DATA 1000000,10,30,25000 

037 READ F,C,R,V 
060 REM 

070 REM COMPUTE BREAK-EVEN POINT 
080 LET V1=F/<R-C) 

090 PRINT "BREAK-EVEN POINT="; VI; "VOLUME UNITS" 
100 REM 
-101 FOS V = 25000 TO 100000 STEP 25000 
110 REM COMPUTE TOTAL COST 
120 LET T=F+C*V 
130 REM 

WO REM COMPUTE TOTAL REVENUE 
150 LET fi1=R*V 
160 REN 

170 REM COMPUTE PROFIT/LOSS 
180 LET P=R1-T 
200 IF V>V1 THBl 230 

210 PRINT "LOSS = $";-P, "VOLUME =";V;"UNITS" 
220 GOTO 235 

230 PRINT "PROFIT=$";P,"VOU«E=";V; "UNITS" 
- 235 NEXT V 
240 END 



When executed, this program produces: 



BREAK-EVEN POINT= 50000 VOLUME UNITS 

LOSS = $ 500000 VOLUME = 25000 UNITS 

LOSS = $ VOLUME = 50000 UNITS 

PROFIT=$ 500000 VOLUME= 75000 UNITS 

PROFIT=$ 1.00000E+6 VOLUME= 100000 UNITS 



Figure 1-11, Break-Even Program With FOR and NEXT Statements 



In the sample program (figure 1-12), the DIM state- 
ment Is used to specify each array as containing 
four elements (line numbers 039, 040, 041, and 
042); however, the use of this statement is not 
required. To specify an array of up to eleven 
elements, only the selected variable name and asso- 
ciated subscripts are required. The advantage of 
using DIM in this situation is the conservation of 
space because the use of a variable and subscript 
results in an automatic allocation of space for 
eleven array elements by BASIC. If the array is to 
contain more than eleven elements, the DIM state- 
ment is required. See section 3 for additional 
information pertaining to the DIM statement. 

The DIM statement in line number 039 of figure 1-12 
reserves space for an array named V. The amount of 
space reserved is determined by the bound speci- 
fier; the bound for array V is 3. This means that 
the largest subscript for array V is 3 and that 



array V has four elements: V(0), V(l), V(2), and 
V(3) because a count of the elements begins with 
zero (0). (See figure 1-13.) Arrays P, T, and Rl 
in figure 1-12 are also four-element arrays. A 
count of the elements can also begin with 1. See 
the OPTION statement described in this manual. 

Figure 1-14 shows the method used for placing data 
into the array. The variable I is used to ini- 
tialize the volume array V. The variable I is set 
to the value of zero , and is Incremented within the 
FOR loop (line number 102) by 25000 for each incre- 
ment of J. The variable J is a subscript used to 
address the individual elements of array V; when 
J is zero, the first element is addressed. The 
statement at line 103 places the current value of I 
into the array V at the location identified by the 
current value of J. J is also used as a subscript 
for addressing the elements of arrays P, T, and Rl. 
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001 REM THIS IS A BREAK-EVEN PROGRAM 

002 REM THE FOLLOWING VARIABLES ARE USED 

003 REM FIXED ANNUAL COST F 

004 REM VARIABLE COST PER UNIT C 

005 REM SALES REVENUE PER UNIT R 

006 REM SALES VOLUME V 

007 REM BREAK-EVEN POINT (VOLUME) VI 

008 REM TOTAL COST T 

009 REM TOTAL REVENUE R1 

010 REM PROFIT/LOSS P 
Oil REM 

012 REM 

013 REM ASSIGN VALUES TO F, C, R 
035 DATA 1000000,10,30 

037 READ F,C,R 

038 REM DEFINE ARRAYS FOR V, P, T, R1 

039 DIM V(3) 

040 DIM P(3) 

041 DIM T(3) 

042 DIM R1(3) 
060 REM 

070 REM COMPUTE BREAK-EVEN POINT 

080 LET V1=F/(R-C) 

090 PRINT "BREAK-EVEN POINT =";V1; "VOLUME UNITS" 

095 REM INITIALIZE ARRAY V, COMPUTE P,T,R1 

096 LET I = 

101 FOR J = TO 3 

102 LET I = I + 25000 

103 LET V<J) = I 
130 REM 

140 REM COMPUTE TOTAL COST 

141 LET T(J) = F + C * V(J) 

160 REN COMPUTE TOTAL REVENUE 

161 LET RKJ) = R * V(J) 
170 REM COMPUTE PROFIT/LOSS 
181 LET PCJ) = RKJ) - T(J) 
183 NEXT J 

201 PRINT " VOLUME" ,V<0),V<1),V(2>,V(3) 

202 PRINT " REVENUE",RK0),RK1),RK2),RK3) 

203 PRINT " C0ST",T<0),T(1),T(2),T(3) 

204 PRINT " PR0FIT",P<0),P(1),P(2),P(3) 
240 END 



Figure 1-12. Break-Even Program With 
DIM Statements 



■■™ 








element 


element 1 


element 2 


element 3 








_ 



095 


• 
■ 

REM 


INITIALIZE ARRAY V, COMPUTE P,T,R1 


096 


LET 


1=0 


101 


FOR 


J = TO 3 


102 


LET 


1=1+ 25000 


103 


LET 


VCJ) = I 


130 


REM 




140 REM 


COMPUTE TOTAL COST 


141 


LET 


T(J) = F + C * V(J) 


160 


REM 


COMPUTE TOTAL REVENUE 


161 


LET 


RKJ) = R * V(J) 


170 


REM 


COMPUTE PROFIT/LOSS 


181 


LET 


P(J) = RKJ) - T<J) 


183 


NEXT J 

■ 



Figure 1-14. Placing Data Into Arrays 



201 PRINT " V0LUME",V(0),V(1),V(2),V(3) 

202 PRINT " REVENUE",RK0),RK1),R1(2),R1<3) 

203 PRINT " COST",T<0),T(1),T(2),T(3) 

204 PRINT " PROFIT",P(0),P(1),P{2),P(3) 
240 END 



Figure 1-13. Array V 



Figure 1-15. PRINT Statements for 
Array Elements 

TERMINAL INPUT AND 
OUTPUT (I/O) 

Sometimes It is desirable to enter data while a 
program is executing. For example, if the break- 
even problem is generalized to permit several 
different products with different fixed costs, 
variable costs, and revenue per unit, the program 
can be modified to request the values for these 
variables while the program is executing. 

The INPUT statement is used in a BASIC program when 
entering data from the terminal keyboard. When the 
INPUT statement is executed, a displayed ? asks for 
data. Execution stops until the requested data is 
entered. Data entered through the terminal key- 
board is assigned sequentially to variables listed 
as INPUT statement arguments. 



After completing the loop between line numbers 101 
and 183 (figure 1-14), all of the arrays contain 
the results of the computation. The PRINT state- 
ments in lines 201, 202, 203, and 204 (figure 1-15) 
print the Individual elements of each array. The 
program output displays the contents of each array 
as shown in figure 1-16. 



If more than one Item is requested by one INPUT 
statement, the exact number of items requested must 
be entered and the items must be separated by 
commas. If not enough data or too much data is 
entered, diagnostics are Issued by BASIC. The 
specified action must be taken before execution can 
resume. 



BREAK-EVEN POINT= 50000 VOLUME UNITS 

VOLUME 25000 50000 

REVENUE 750000 1.50000E+6 

C OST 1.2 5000E-)-6 1 . 50000E+6 

PROFIT -500000 



75000 

2.25O00E+6 
1.75000E+6 
500000 



100000 
3.00000E-t-6 
2.00000E-f6 
1.00000E+6 



Figure 1-16. Break-Even Program With DIM Statements Output 
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Figure 1-17 Illustrates the break-even program 
using the INPUT statement. The values of variables 
F, C, and R are to be Input. The PRINT statement 
at line number 015 prints a message on the terminal 
Indicating the values and the sequence of the values 
to be input. The output of this statement is fol- 
lowed by the question mark and the result of the 
INPUT statement line 036 is shown in figure 1-18. 



Note that only two values were entered and that the 
NOT ENOUGH DATA diagnostic was issued; the data was 
then reentered. 

The program output la shown in figure 1-18. Reve- 
nue, cost, and profit were computed on the basis of 
data entered at the terminal. Refer to section 7 
and appendix D for more information pertaining to 
input and output. 



001 REN THIS IS A BREAK-EVEN PROGRAM 

002 REM THE FOLLOHING VARIABLES ARE USED 

003 REN FIXED ANNUAL COST F 

004 REN VARIABLE COST PER UNIT C 

005 REM SALES REVENUE PER UNIT R 

006 REN SALES VOLUME v 

007 REN BREAK-EVEN POINT (VOLUME) VI 

008 REN TOTAL COST t 

009 REN TOTAL REVENUE Ri 

010 REM PROFIT/LOSS p 
Oil REM 

012 REN 

013 «EH ASSIGN VALUES TO F, C, R 
015 PRINT "INPUT:FIXED COSTS VARIABLE COSTS 
036 INPUT F,C,R 

038 REN DEFINE ARRAYS FOR V, P, T, RI 

039 DIN V(3) 

040 DIN P(3} 

041 DIN T(3) 

042 DIN R1<3> 
060 REN 

070 REN CONFUTE BREAK-EVEN POINT 

080 LET V1=F/(R-C) 

090 PRINT "BREAK-EVEN POINT ="; VI ;"VOLUNE UNITS" 

095 REN INITIALIZE ARRAY V, CONPUTE P,T,R1 

096 LET I = 

101 FOR J = TO 3 

102 LET I = I + 25000 

103 LET V(J) = I 
130 REN 

140 REN COMPUTE TOTAL COST 

141 LET T<J) = F + C * V(J) 

160 REN COMPUTE TOTAL REVENUE 

161 LET RKJ) = R * V(J) 
170 REM COMPUTE PROFIT/LOSS 
181 LET P(J) = RKJ) - T(J) 
183 NEXT J 

" V0LUNE",V(0),V(1),VC2),V(3) 
" REVENUE",R1 (0) ,fi1 (1 ) ,R1 (2) ,R1 (3) 
" C0ST",T(0),T(1),T{2),T(3) 
" PR0FIT",P(0),P(1),P(2),P(3) 



REVENUE PER UNIT" 



201 PRINT 

202 PRINT 

203 PRINT 

204 PRINT 
240 END 



Figure 1-17. Break-Even Program Uith INPUT Statement 



VARIABLE COSTS REVENUE PER UNIT 



AT 36 



INPUT: FIXED COSTS 

? 1000000,10 
NOT ENOUGH DATA, REENTER OR TYPE IN NORE 

? 1000000,10,30 

BREAK-EVEN POINT= 50000 VOLUNE UNITS 
VOLUME 25000 50000 
REVENUE 750000 1.50000E+6 
COST 1.25000E+6 1.50000E+6 
PROFIT -500000 



75000 

2.25000E+6 
1.75000E+6 
500000 



100000 
3.00000E-f6 
2.00000E+6 
1 .OOOOOE+6 



Figure 1-18. Break-Even Program With INPUT Statement Interactive Input/Output 
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USING BASIC UNDER NOS 
AND NOS/ BE 

The previous paragraphs describe BASIC statements 
and the organization of these statements into a 
BASIC program. The following paragraphs describe 
the procedures for entering a program into a com- 
puter and for executing that program. 

BASIC is primarily a terminal-oriented language; 
however, programs in card deck form can be entered 
and executed (batch mode). The following para- 
graphs describe the method for entering and exe- 
cuting BASIC programs interactively through use of 
a teletypewriter (TTY) or cathode ray tube (CRT) 
terminal. See section 12 for a description of 
BASIC program card deck structures and batch mode 
operations. 

BASIC runs under both the NOS and NOS/BE operating 
systems. Its usage under NOS is described in the 
following paragraphs; its usage under NOS/BE is 
described later in this section. See sections 10 
and 11 for more detailed information. 

If operating from a terminal, the program must be 
written into a file, as shown in the examples that 
follow, and must be executed from the file. To 
correct a line, reenter the line number, followed 
by the corrected line. To delete a line under NOS, 
enter the line number and press the transmission 
(carriage return) key. To delete a line under 
NOS/BE, enter DELETE, the line number, and press 
the transmission (carriage return) key. New lines 
can be added freely. 



NOS 

BASIC programs can be run from a time-sharing termi- 
nal under NOS through Interactive Facility (lAF) or 
the Time-Sharing System. Login procedures for lAF 
and the Time-Sharing System differ. The procedures 
are described in the following paragraphs. 

To initiate the login procedure, establish physical 
connection between the terminal and the computer. 
The method used to establish this connection varies 
depending on the type of terminal being used and 
the type of coupling between the terminal and the 
computer. Connection methods for lAF are described 
in the Network Products Interactive Facility ref- 
erence manual (NOS 1 sites) and Volume 3 of the 
NOS 2 reference set (NOS 2 sites). Connection 
methods for the Time-Sharing System are described 
in the NOS Time-Sharing User's reference manual. 



Login, Execution, and Logoff Procedures 

for the Interactive Facility 

The login procedure for the Interactive Facility 
(lAF) begins with the system printing the following 
three lines at the terminal. The second line of 
this message is dependent on the installation. 



When this occurs, perform the following steps: 

1. Enter the family name on the same line. If 
the family name is the default family for the 
system, press the carriage return. Certain 
Installations do not request a family name. 

The system responds: 

USER NAME: 

2. Enter the user name on the same line. The 
user name consists of alphanumeric characters 
assigned by the installation. 

The system responds: 

PASSWORD: 

3. Enter the password. The password must consist 
of up to seven alphanumeric characters. To 
provide a greater measure of security, over- 
typing is done on hardcopy terminals. 

If the family name, user name, and password 
are not acceptable, the system responds: 

IMPROPER LOGIN, TRY AGAIN. 
FAMILY: 



If the family name, user name, and password 
are acceptable, the system responds: 

termname - APPLICATION: 

The termname on this line is the same as that 
on the first line of the login sequence and 
can be disregarded. 

Select the Interactive Facility by entering: 
lAF 

Under NOS 1, if validation is given to access 
the Interactive Facility, the system responds: 



TERMINAL: 
RECOVER/ CHARGE: 

TERMINAL: 
RECOVER/ SYSTEM: 



nn, NAMIAF 
nn, NAMIAF 



where nn is the terminal number. Remember this 
number because it can be used for recovery. 



Under NOS 2, if validation is given to access 
the Interactive Facility, the system responds: 

JSN: zzzz, NAMIAF 
CHARGE NUM BER; 



JSN: 



zzzz, NAMIAF 



yy/mm/dd. fah. 
CDC NOS 
FAMILY: 



i.ss termname 



READY. 

where zzzz Is the Job sequence name. Remember 
this name because it can be used for recovery. 



l-IO 
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If RECOVER/ SYSTEM (NOS 1) or READY (NOS 2) is 
printed, the login procedure is complete; any 
valid cominand can be entered. 

If. under NOS 1, RECOVER/ CHARGE is printed, 
type CHARGE followed by the assigned charge 
number and project number on the same line: 

CHARGE , chargeno , pro j ectno 
The system responds by printing; 

READY. 
The login procedure is now complete. 



If, under NOS 2, CHARGE NUMBER is printed, 
type the assigned charge number in the area 
that has been blacked out. The system will 
respond : 

PROJECT NUMBER: 



Type in the assigned project number in the 
area that has been blacked out. 

If the charge number and project number are 
valid, the system responds by printing: 

READY. 
The login procedure is now complete. 
Enter the desired subsystem by typing: 

BASIC 

Because all interactive programs run under 
NOS reside as files, the system queries the 
applicable file type by responding: 

OLD, NEW, OR LIB FILE: 

Submit the appropriate file status: Ifn is 
the local file name. 

OLD, Ifn 

Indicates the file previously created and 
available. 

NEW, Ifn 

Indicates a new file. 
LIB, Ifn 

Indicates a file from the system library. 

The file name consists of up to seven alpha- 
numeric characters. If an OLD or LIB file 
does not exist, the system responds: 

Ifn NOT FOUND, AT nnnnn. 

If the file name entered contains Illegal 
characters, the system responds: 

ERROR IN ARGUMENT 

Correct the file name. 



If the file name entered contains too many 
characters, the system responds: 

ILLEGAL PARAMETER 

Correct the file name. 

After the system finds the specified file, it 
responds : 

READY. 

The example in figure 1-19 illustrates a sample 
login for both NOS 1 and NOS 2. 

8. Enter the new BASIC program. Each line must 
begin with a 1- through 5-digit line number, 
and end with a carriage return. BASIC state- 
ments need not be typed in correct order; the 
BASIC subsystem automatically sequences the 
statements according to line number. The NOS 
edit facility, XEDIT, can be used to enter a 
new BASIC program or change an existing file. 
See the XEDIT reference manual for use of this 
facility. 

9. To execute the program, type: 

RUN 

This command initiates compilation and execu- 
tion of the BASIC program. If there are com- 
pilation or execution errors, the appropriate 
error messages will be displayed. 

10. When a run is completed, the following options 
are available: 

Continue processing (build and execute new 
programs; modify existing program and re- 
run; or rerun the same program), 
or 

Terminate the terminal session with the 
following conaand: 

BYE 

All files not saved (see appendix D, Indirect Access 
Permanent Files) are released. 

Under NOS 1, the following is printed: 

xxxxxxx LOG OFF hh.mm.ss. 
xxxxxxx SRD s.sss UNTS 

xxxxxxx Indicates the user name. 

s.sss Indicates the total number of system 
resource units used under this charge 
and project number. 

Under NOS 2, the following is printed: 

UN=xxxxxxx LOG OFF hh.mm.ss. 

JSN=Z3zz SRU s.sss UNITS. 

xxxxxxx Indicates the user name. 

zzzz Indicates the job sequence name. 

s.sss Indicates the total number of system 
resource units used under this charge 
and project number. 
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NOS 1 Login: 

82/01/08. 10.50.14. T128 

CDC NOS 1 

FAMILY: 

USER NAME: xxxxxxx 

PASSWORD: XX XX 

T128 - APPLICATION: iaf 

TERMINAL: 61, NAMIAF 

RECOVER/ CHARGE: charge,xxxx, xxxxxxx 

CHARGE, xxxx, xxxxxxx. 

/basic 

OLD, NEU, OR LIB FILE: neu,ex4 



READY. 



NOS 2 Login: 

82/01/08. 10.42.16. T143A 
CDC NOS 2 
FAMILY: 

USER NAME: xxxxxxx 
PASSWORD: xxxx 
T143A - APPLICATION: iaf 
JSN: AADI, NAMIAF 
CHARGE NUMBER: 

PROJECT NUMBER: 

/basic 

OLD, NEW, OR LIB FILE: new,ex4 



READY. 



Figure 1-19. NOS Login Examples 

Login, Execution, and Logoff Procedures 
for the Time-Sharing System 

The login sequence for the Time-Sharing System 
begins with the system printing the following three 
lines at the terminal. The second line of this 
message is dependent on the installation. 

yy/mm/dd. hh.mm.ss. 

CDC TIME-SHARING SYSTEM NOS 

FAMILY: 

When this occurs, perform the following steps: 

1. Enter the family name on the same line. If 
the family name is the default family for the 
system, press the carriage return. If your 
installation does not use family names, a 
family name is not requested. 

The system requests: 

USER NUMBER: 

2. Enter the user number on the same line. The 
user number consists of up to seven alphanu- 
meric characters assigned by the Installation. 



The system requests: 
PASSWORD: 



Enter the password. The password must con- 
sist of up to seven alphanumeric characters. 
To provide a greater measure of security, 
type the password In the area the system has 
blacked out. If a password is not needed, 
enter a carriage return. 

If the family name, user number, and password 
are not acceptable, the system responds: 

IMPROPER LOGIN, TRY AGAIN. 
FAMILY: 

If the family name, user number, and password 
are acceptable, the system responds: 

TERMINAL: nnn,TTY 
RECOVER/ CHARGE: 
or 

TERMINAL: nnn,TTY 
RECOVER/ SYSTEM: 

The nnn indicates the particular terminal 
number being used. (These responses are 
installation-dependent . ) 



4-6. These steps are the same as steps 5 through 
7 of the previous description of Login, 
Execution, and Logoff Procedures for the 
Interactive Facility. 

The example in figure 1-20 illustrates a 
sample login. 



7-9. These steps are the same as steps 8 through 
10 of the previous description of Login, 
Execution, and Logoff Procedures for the 
Interactive Facility. 



81/07/31. 13.19.28. 

TIME SHARING SYSTEM 

FAMILY: 

USER NUMBER:xxxxxxx 

PASSWORD 

XXXX 

TERMINAL: 60,TTY 
RECOVER /SYSTEM: basic 
OLD,NEW,OR LIB FILE: neH,ex4 

READY. 



Figure 1-20. Sample Timesharing Login 



Sample Terminal Session 

The sample program in figure 1-21 was run at a ter- 
minal under the NOS 2 IAF System. Responses entered 
at the terminal are in lowercase letters. Press 
the transmission (carriage return) key after typing 
In each response. 
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/basic -"•- . 

OLD, NEW, OR LIB FILE: new,ex4 -*- 

READY. 

100 print "type a number" 

110 input X 

120 Let f=1 

130 for i=1 to X 

140 let f=f*i 

150 print "factorial ";x,"is ";f 

160 goto 110 

170 end 

list -— - ' 



100 PRINT "TYPE A NUHBER" 

110 INPUT X 

120 LET F=1 

130 FOR 1=1 TO X 

UO LET F=F*1 

150 PRINT "FACTORIAL ";X,"IS ";F 

160 GOTO 110 

170 END 



READY, 
alter, 160,/110/1 00/— 

160 60T0 100 



READY, 
run ■4— 



FOR illTHOUT NEXT AT 130 
BASIC COMPILATION ERRORS 



RUN COMPLETE. 
145 next i 
115 if x=0 then 170 
run 

TYPE A NUMBER 
? 3 

FACTORIAL 3 IS 6 
TYPE A NUHBER 
? 
RUN COMPLETE, 
list-* — . 



] 



100 PRINT "TYPE A NUMBER" 

110 INPUT X 

115 IF X=0 THEN 170 

120 LET F=1 

130 FOR 1=1 TO X 

140 LET F=F*I 

145 NEXT I 

150 PRINT "FACTORIAL ";X,"IS ";F 

160 GOTO 100 

170 END 

READY. 

sav/e,ex4 -^ 

READY. 



Requests BASIC subsystem. 



— Creates new file EX4 



Enters BASIC program. 



Lists BASIC program. 



Changes statement 160 to correct error. 



Compiles and executes program. 



BASIC issues diagnostic. 



Correct program and rerun. 

Program requests Input and prints output. 
Lists BASIC program. 



Makes file EX4 permanent. 



Figure 1-21. lAF System 
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In figure 1-21, the program is saved as a file 
named EX4. The program in this file is stored as 
an Indirect access permanent file which can later 
be accessed by use of the OLD conmiand (as shown 
in figure 1-22). At this time, add, delete, or 
change program statements as shown in figure 1-23. 
(See appendix I for an explanation of the editing 
commands used in figure 1-23.) 

In figure 1-23, the BEPLACE command replaces the 
old version of EX4 with the updated version. If 
logoff of the system had occurred before replacing 
EX4, the corrected version would have been lost 
while the old version of EX4 remained Intact. 

For a detailed description of the NOS commands used 
in figure 1-21, as well as other available NOS 
commands, see the lAF reference manual (NOS 1 
sites). Volume 3 of the NOS 2 reference set (NOS 2 
sites), or the NOS Time-Sharing User's reference 
manual. 



NOS/ BE 

To access a central computer from a terminal, 
establish physical connection with the computer 
system. The method of establishing the connection 
between the terminal and the central site computer 
varies depending on the type of terminal equipment 
and the connection provided by the telephone com- 
pany. See the INTERCOM Version 5 reference manual. 
When connected to the terminal, the system responds: 

CONTROL DATA INTERCOM 5.n 
DATE mm/dd/yy 

TIME hh.mm. ss 

PLEASE LOGIN 

When this occurs, perform the following steps: 

1. Log in to the system by entering: 

LOGIN 

The system responds: 

ENTER USER NAME- 



2. Enter the user name followed by a carriage 
return. The user name can be any combination 
of up to ten letters or digits and must not be 
followed by a period. 



When the user name has been entered at a TIY 
terminal, the system responds: 



aCtBiStiOKtl^ ENTER FASSWORD- 



At a 200 User Terminal (200 UT) or any display 
terminal, the system responds: 

ENTER PASSWORD- 



Enter the password followed by a carriage 
return. A password is any combination of up to 
ten letters or digits that must not terminate 
with a period. On a teletypewriter (TTY) list- 
ing, the system preserves privacy by allowing 
the password to be entered over ten character 
spaces that have been blacked-out by over- 
printing. 



When the user name and password are accepted, 
the time logged in and the user id (a 2- 
character user code) , followed by the equipment 
number (multiplexer equipment status table 
ordinal) and the port number logged in, are 
displayed at the terminal, as shown below: 

19/07/79 LOGGED IN AT 17.47.26 
WITH USER-ID AB 
EQUIP/PORT 52/03 

4. After a successful login the system responds: 

COMMAND- 

Enter the text edit mode by typing 

EDITOR 

The system indicates text edit mode by display- 
ing two consecutive periods. 



old,ex4 

READY, 
list -♦ 



100 PRINT "TYPE A NWIBER" 

110 INPUT X 

115 IF X=0 THEN 170 

120 LET F=1 

130 FOR 1=1 TO X 

140 LET F=F*I 

145 NEXT I 

150 PRINT "FACTORIAL ";X,"IS ";F 

160 GOTO 100 

170 END 



READY. 



Makes a copy of file EX4 accessible. 
Lists BASIC program on file EX4. 



Figure 1-22. OLD Command Accesses Permanent File Under NOS 
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List -*- . . 

100 PRINT "TYPE A NUHBER" 

110 INPUT X 

115 IF X=0 THEN 170 

120 LET F=1 

130 FOR 1=1 TO X 

140 LET F=F*I 

145 NEXT I 

150 PRINT "FACTORIAL ";X,"IS ";F 

160 GOTO 100 

170 END 

READY. 
alter,100,/type/please input 

100 PRINT "PLEASE INPUT A NUHBER" 

READY. 
deLete,150 

150 PRINT "FACTORIAL ";X,"IS ";F 

READY. 
150 print f;" is the factorial of ";x _ 

list -«_ 



-Lists BASIC program. 



Make changes to program. 



Lists corrected version. 



100 PRINT "PLEASE INPUT A NUMBER" 

110 INF^T X 

115 IF X=0 THEM 170 

120 LET F=1 

130 FOR 1=1 TO X 

140 LET F=F*I 

145 NEXT I 

170 END 

READY. 

run -^ — . 



PLEASE INPUT A NUHBER 
? 4 

24 IS THE FACTORIAL OF 4 
PLEASE INPUT A NUHBER 
? 

RUN COMPLETE. 



Compiles and executes program. 



Program requests input and prints output. 



replace,ex4 
READY, 
bye -^- 



-Replaces old version of file EX4 with corrected version. 
Log off NOS. 



Figure 1-23. Editing a Program Under NOS 



5. Once In text edit mode, enter the command 
FORMAT, BASIC 



When this command is entered after the two 
periods, a format specification is automati- 
cally established at the terminal that permits 
lines to be entered in BASIC language format. 
The comma is optional. 



6. Enter the BASIC program statements (line number 
followed by BASIC statement). 

After the first line, the two period prompts 
are not given; continue Inserting statements. 
Each line must begin with a 1- through 5-digit 
line number and end with a carriage return. 
BASIC statements need not be typed In correct 
order because the EDITOR automatically sequences 
them according to line number. 
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7. Once the entire program is entered, compile and 
execute the program by typing: 

RUN, BASIC 

After the program compiles and executes, the 
appropriate error messages are displayed if 
program errors occur. The comma is optional. 

8. When the run completes, select one of the 
following options: 

Continue processing (build and execute new 
programs; modify and rerun existing pro- 
grams; or rerun the seune program), 
or 

Terminate the terminal session by entering 
the BYE or BYE BYE command. When the BYE 
or BYE BYE command is entered, the system 
is returned to command mode from EDITOR 
mode. The BYE command does not save the 
EDIT file. (See the INTERCOM Version 5 
reference manual.) 

The system responds with: 

COMMAND- 

At this time, enter the LOGOUT command to 
release any local files created under EDITOR. 



Only files that are permanent are retained 
after logout. Disassociation from NOS/BE 
occurs until a subsequent LOGIN command is 
entered. NOS/BE displays the date and time 
logged out. LOGOUT is not allowed when oper- 
ating under control of the EDITOR. (Leave 
EDITOR via the END or BYE command.) 

For example if the command LOGOUT is entered, 
the system responds: 



CPA 


6.377 


SEC. 




6.377 ADJ. 


CPB 


.000 


SEC. 




.000 ADJ. 


SYS TIME 








7.774 


CONNECT TIME 





HRS. 




19 MIN. 


10/21/79 


LOGGED OUT 


AT 


08.43.09. 



Logout time is given in hours, minutes, seconds 
(24-hour clock); CP time is given in seconds. 
Disconnect the terminal from NOS/BE by turning 
it off, or by hanging up the data set receiver. 



Sample Terminal Session 

After logging in, create and execute BASIC pro- 
grams. The sample BASIC program in figure 1-24 
illustrates how to run a BASIC program under NOS/BE. 
The program was entered at a TTY terminal. After 
typing each response, press the carriage return key. 



COMMAND- editor -« 

..format,basic -^ ■ — ; 

..10 print "type a number"; 

20 input X 

30 let f=1 

40 for i=1 to X 

50 Let f=f*i 

60 print "factorial ";x,"is ";f 

70 goto 110 

80 end 

run,basic -^ 



FOR WITHOUT NEXT AT 40 - 
BASIC COMPILATION ERRORS 
..55 next i "I ^ 
25 if x=0 then 80 J 
run/basic -^ 



Enter EDITOR. 

Request BASIC program format. 



Enter BASIC program. 



Compile and execute the program. 
BASIC issues diagnostic. 

Correct errors. 
Rerun program. 



TYPE A NUMBER t 
FACTORIAL 3 
TYPE A NUMBER 
..list/all,sup-^ 



?3 I 
IS 6 
?0 J 



Program requests input and prints output. 

List program; sup suppresses additional line number prefixes. 



10 PRINT "TYPE A NUMBER"; 

20 INPUT X 

25 IF X-O THEN 80 

30 LET F=1 

40 FOR 1=1 TO X 

50 LET F=F*I 

55 NEXT I 

60 PRINT "FACTORIAL ";X;" IS";F 

70 GOTO 10 

80 END 

..save,basprog -«•■ — 

..store,basprog, Jones -« 

CT ID= JONES PFN=BASPROG: 

CT CY= 001 SN=PFQSET 00000064 WORDS. 

..end ■ * — 



Make edit file a local file named BASPROG. 
Make local file BASPROG permanent. 



Exit EDITOR. 



Figure 1-24. BASIC Program Under NOS/BE 
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Using the SAVE command to save file BASPROG allows 
the file to be reserved for later use during the 
terminal session (for example, before logging out). 
To save the file permanently, it must be stored as 
a permanent file using the STORE command. (Some 
accounting information might be necessary before 
saving a file with STORE. Check site procedures.) 
To retrieve and execute this program later, the 
command sequence in figure 1-25 must follow the 
user login sequence. 



COMMAND-f et c h ,b asp rog 
COMHAND-edltor 
..format, basic 
..edit,basprog 
..run,basic 



Figure 1-25. Retrieval and Execution Example 



The FETCH command retrieves the file previously 
made permanent and tells EDITOR that BASPROG is 
to be the edit file. The commas are optional. 
The RUN command compiles and executes the program. 



For a more detailed description of INTERCOM EDITOR 
commands used in this example, as well as other 
oI!r^^? commands, see the section on Terminal 
Operation under NOS/BE and the INTERCOM Version 5 
reference manual. 
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ELEMENTS OF THE BASIC LANGUAGE 



This section describes the BASIC language structure, 
and explains the elements of the language. The 
language elements Include: numeric data consisting 
of Integer, decimal and exponential constants; 
string data consisting of alphanumeric text with or 
without quotation marks; variables representing 
values that are not fixed; and operators of the 
language, expressions, and function references. 



BASIC LANGUAGE STRUCTURE 

A BASIC program is comprised of statements that 
define the type of operations performed and the 
types of data manipulated by the program. The 
statement lines are written by using characters 
from the BASIC character set. The following para- 
graphs define the BASIC character set, the struc- 
ture of a BASIC statement, and the structure of a 
BASIC program. 



CHARACTER SET 

The characters listed in table 2-1 can be used to 
form BASIC statements. Any character available to 
the operating system can be used in data and string 
constants. See appendix A for a description of all 
available characters. 



STATEMENT STRUCTURE 

A BASIC statement can be In the form of an exe- 
cutable statement that specifies a program action 
(LET X=10) or a nonexecutable statement that pro- 
vides information necessary for program execution 
(DATA 1,3,5). All BASIC statements have the 
following common characteristics: 

Each statement begins with a line number. Line 
numbering must range fT(m'''$.!^'-00f$X 

Each statement must be completed on a single 
line. Statement continuation onto another line 
Is not allowed. 

Generally, blanks within a BASIC statement have- 
no mcdniug and are ignored. For example, blanks 
surrounding and/or embedded wfthfn keywords and 
Une numbers are skipped. Howover, there are 
specific instances in which blanks arc signifi- 
cant, such as In strings. Blanks <:hould only 
be used to separate elements of the BASIC lan- 
guage. Embedding blanks within line numbprs, 
keywords, constants or variables is noL recom- 
mended. See Future System Migration Guideline;, 
append i<c E. 

A BASIC statement, including blanks, line num- 
bers, and tail comments, can be a maximuffl of 
JitSCf characters. 

The character apostrophe (') marks the begin- 
ning of a tail comment except when it appears 
in a string, an .Image statement, or a DATA 



TABLE 2-1, BASIC CHARACTER SET 



Sjmibol 



A thru Z 

+ 



thru 9 

A 



< 

> 

? 

9 
# 



Description 



Letters (uppercase) 

Plus 

Minus 

Asterisk 

Slash 

Left parenthesis 

Right parenthesis 

Dollar 

Equal 

Colon 

Apostrophe 

Numerals 

Blankt 

Comma 

Period 

Quote 

Circumflex'f"f^ 

Less than 

Greater than 

Question mark 

Semicolon 

Number 



'Refer to appendix E for recommendations 
for the use of blanks. 

''Up arrow (t) on some terminals. 



„,...,„„,„„„„„„ Tail comments serve only as docu- 
mentation except for being Included in the 150 
character statement limit. 



PROGRAM STRUCTURE 

A BASIC program is a group of statement lines 
arranged according to the following general rules: 
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Program statements must be in line number order 
when the program is compiled. If entering 
program lines in the BASIC subsystem under NOS 
or using the EDITOR command FORMAT, BASIC under 
NOS/BE, the program statements need not be 
entered in line number order because they are 
automatically sorted. See the Interactive 
Facility reference manual (NOS 1 sites). Vol- 
ume 3 of the NOS 2 reference set (NOS 2 sites), 
or the INTERCOM Version 5 reference manual for 
Information about sorting line numbers before 
execution. 

Executable and nonexecutable statements can be 
intermixed. In the following example, a non- 
executable statement is the DATA statement at 
line number 110, and an executable statement is 
the IF statement at line nimiber 100. These 
executable and nonexecutable statements are 
explained in more detail later In this manual. 

100 IF A=B THEN 110 
110 DATA 10,20,30 
120 READ C,D,E 
130 END 

An END statement must have the highest line 
number in the source program. 

Although BASIC programs can be compiled and exe- 
cuted as batch programs, BASIC is normally used 
interactively from a remote terminal. 



CONSTANTS 

A constant is a fixed, unchanging value. In BASIC, 
there are numeric and string constants. 



Whether integer, decimal, or exponential, the 
absolute value of a constant must be in the 
range 3.13152 times 10-29* to 1.26501 times 
10322. To compile a program containing con- 
stants with values above this range results in 
the diagnostic ILLEGAL NUMBER. Constants with 
values below this range are treated as zeros. 



Integer Constants 

An integer constant is a whole number written 
without a decimal point. 



Examples: 



-49 

+123456789 
25000 




Decimal Constants 

A decimal constant is any whole number, fraction, 
or mixed number written with a decimal point. 
Leading zeros to the left of the decimal point and 
trailing zeros to the right of the decimal point 
are ignored; the decimal point can appear anywhere 
in the number. 

Examples: 

-4.08 

50.5 

1.91632614 

147.2 

.0000001 

+3025.098 



NUMERIC CONSTANTS 

In BASIC there are three types of numeric constants: 

Integer 

Decimal 

Exponential 

Although each of the numeric constant types has 
specific rules that govern its use, the following 
rules apply to all three constant types: 

A comma cannot be used to delimit placement 
over the one-hundredth place, such as thousands 
and millions. 

When a numeric constant is not signed ex- 
plicitly by a negative or positive sign, the 
constant is assumed to be positive. 

Any number of digits can appear in a nimeric 
constant; a maximum of 14-dlglt accuracy is 
used in computation. The CYBER 170 Model 176 
uses a method different from other CYBER models 
when rounding the results of division. The 
difference is in the 15th digit of accuracy, 
but can become apparent when several divides 
and multiplies are done in succession (as in 
the case when matrix inversion is followed by 
matrix multiplication). 



Exponential Constants 

The representation of very large or very small num- 
bers is simplified by using exponential constants. 
For example, to write ten billion in its full form 
requires 11 digits (10000000000); however, ten 
billion can also be represented as 1.0 times lOlO. 

In BASIC, this exponential form is expressed by 
I.OEIO. The 1.0 is the significand and the 10 is 
the exponent. The E means times ten to the power 
of. 

Similarly, a small number, such as .00000000923, 
can be represented as 9.23 times 10-9. in BASIC, 
this notation can be expressed by 9.23E-9. 

To use exponential constants in a BASIC program, 
the following rules must be observed: 

A number, the significand, must precede the E. 
The significand can be any valid integer or 
decimal constant. 

The exponent (number that follows the E) is an 
integer constant with a positive or negative 
sign. If a sign is absent, a positive sign is 
assumed. If the exponent is too large to be 
represented in the computer, a diagnostic is 
issued. 

Decimal points are not permitted in the 
exponent. 
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Examples : 



Numeric 



-2.517E130 

7E+20 

4.91872634E-18 



STRING CONSTANTS 

A string Is a collection of alphabetic, numeric, 
and special characters. In BASIC, these characters 
are usually set off by quotes from the rest of 
the program; this is called quoted text. Strings 
that are not set off with quotes, called unquoted 
strings, are permitted, but they can only be used 
in DATA statements or as input data. 

Rules : 

A string enclosed in quotes consists of all 
characters between quotes, including blanks. 

"]^;_,ai|l^^;{;|^'!fefci^|Vi|^^^^ depends on the 
mode: " normal or ASCli. In "normal mode, the 
maximum length is 131070 characters; In ASCII 
mode, the maximum length "is'',b^W!ft6li',,.64S.3'5';i^n4> 

,'.il3l3®(i- characters, depending oh the number of 
escape code characters in the string. See 
appendix A. 

A zero-length string, also called a null string, 
is represented by a pair of quotes ("")• 

Any character can be used in quoted strings. 

The character quote {") must be used as a pair ■ 
of quotes (""). An embedded quote uses two 
pairs. 

Any character other than a commn can be used in 
an unquoted string. 

Examples : 

"PART 25" 

"THIS IS A TEST" 

"An""efflbedded""quote" 

The outside quotation marks are not part of the 
string constant. See DATA statement under I/O 
Statements and Functions, section 7, for an example 
of unquoted strings. 



VARIABLES 

Variables represent values that are not fixed. 
Values can be assigned to variables and later 
changed by other statements or conditions during 
execution of the BASIC program. Variables can 
represent numeric or string data and can be simple 
or subscripted. 



SIMPLE VARIABLES 

Simple variables can be either numeric or string. 
These two types of simple variables are described 
in the following paragraphs. 



A simple numeric variable represents a numeric 
value. It is named by a single alphabetic charac- 
ter or a single alphabetic character and a numeric 
character. Variable names must not exceed two 
characters in length. Examples of simple numeric 
variables are: 



A 

Z3 

09 

E 



Examples of invalid numeric variable identifiers 
are: 



B23 
49 
G* 
AA 



The following rules apply to numeric variables: 

Numeric variables represent only numeric data. 

Numeric variables are preset to zero before the 
program executes. 

The absolute value of a numeric variable must 
be in the range of 3.13152 times 10-294 to 
1.26501 times 10322. 

If a value smaller than the minimimj is assigned, 
the variable is set to zero. 

If a value greater than the maximum is assigned, 
a fatal diagnostic is issued. 



String 

String variables represent alphanumeric text and 
are named with a 2- or "|'-^}ji#a&t|t''Jis^Wifi«.>:,V The 
first character must be alphabetic, ,';fche;:-;o^:Siw^l 
;'.siBe^n'<J,';ftteai;i!:er .m(^t-,W;!^>dJ|ie;ciCpr*>ria«^^^ ?j, and ,' 
in either case, the last character must be a dollar 
sign ($). For example: 

A$ 

BS 

Y$ 

Al$ 

B9$ 

Y3$ 



The value represented by a string variable is a 
string of characters. Internally, each character 
is represented by one or two 6-bit numeric codes. 
(See appendix A.) Each character has a code value 
that represents a position in the collating se- 
quence . The characters at the beginning of the 
alphabet have code values that are less than the 
characters at the end of the alphabet. For exam- 
ple, if A$ and B$ represent strings ABC and XYZ, 
respectively, then A$ has a value less than B$. 
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The string represented by a string variable can 
contain from through I'SiSl 6-bit characters or 
from through ,6?S^„ 12-bit escape code (ASCII) 
characters. The maximum for a string containing 
both 6- and 12-blt characters (the usual case when 
operating in ASCII mode) lies somevdiere between 
65535 and 131070 characters depending upon the 
number of 12-blt escape code characters. 

The memory space allocated to each string is deter- 
mined by the length of the string. The minimum Is 
one computer word; the maximum is 13108 computer 
words. The one-word minimum space is allocated by 
the BASIC compiler for every string variable men- 
tioned in the program. The remaining words are 
allocated and de-allocated dynamically at execution 
time. 



A subscript value greater than 10 requires a 
DIM statement. If a maximum subscript value of 
less than 10 is desired, a DIM statement can be 
used. (See section 3.) 



Subscripted variables with one subscript refer 
to elements in 1-dimensional arrays; sub- 
scripted variables with two subscripts refer to 
2-dimenslonal arrays; subscripted variables 
with three subscripts refer to 3-dimensional 
arrays . 



A subscript can be any arithmetic expression. 
The subscript used is the value of the expres- 
sion rounded to an integer. 



SUBSCRIPTED VARIABLES 



Simple and subscripted variables witti the sane 
name can be used In the same program. 



Subscripted variables represent one value in an 
array of values. There are two types of sub- 
scripted variables: numeric and string. Numeric 
subscripted variables are - formed by a simple nu- 
merJc variable followed by a subscript list; string 
subscripted variables are formed by a simple string 
variable followed by a subscript list. A subscript 
list consists of one to three numeric expressions 
bounded by parentheses. (See figure 2-1.) Rules 
for the values of subscripted variables are the 
same as for simple variables. 



NUMERIC SUBSCRIPTED VARIABLES 



A(0) 

B2(3) 

B(5,10) 

A(B2(3)) 

X(1,N+M,A(3)) 



STRING SUBSCRIPTED VARIABLES 



B$(4) 

L${1^+3) 

C$(1^3^(1)) 



Figure 2-1. Numeric and String 
Subscripted Variables 



Rules for subscripted variables are listed below: 



BASIC permits 1-, 2-,h:S«iSat#p#giC«»I^Jfl*l» 
In BASIC, array dimensions can' be declared 
implicitly by using subscripted variables. 

Unless an array has been explicitly defined by 
a DIM statement , as described in section 3 , the 
first subscripted variable that references an 
element In an array automatically defines the 
array as containing 11 elements (0 through 10) 
in each dimension. Thus, a 1-dimensional 
array has 11 elements; a 2-dimenslonal array 
has 11 times 11 (or 121) elements, and a 3- 
dimensional array has 11 times 11 times 11 (or 
1331) elements. 



The lower limit on subscripts is zero. How- 
ever, this limit can be changed to one by using 
OPTION BASE 1. (See OPTION statement in sec- 
tion 3.) OPTION BASE 1 instructs the system 
to start array subscripting with element 1, 
rather than the default element 0. Thus, when 
OPTION BASE 1 is in effect, automatically- 
defined 1-dimensional arrays contain 10 ele- 
ments (1 through 10), automatically-defined 
2-dimensional arrays contain 100 elements, and 
automatically-defined 3-dimenslonal arrays 
contain 1000 elements. 



Once an array is defined in a BASIC program, 
the number of array dimensions cannot be 
changed. For example, T(5) and T(2,3) cannot 
be used in the same program. However, the 
number of elements within a particular dimen- 
sion can be changed if the total number of 
elements in the resulting array is less than or 
equal to the total number of elements in the 
original array. For example, array T(2,3) 
could be redefined as T(3,2). 



SUBSTRING ADDRESSING 

Suhbtriiit; .iildrebslng bpvciiieh a purLlon of the 
value jsbuc i<ilL>d wflli a qlmplt; or bubscriptod 
siring variable. Substring -iddresbLng ■ an bL- used 
anywhere that bimplf ur suhsi-:-lpted string varlj- 
bles i-an be used. Substring .idJrosslng Ls <«chk-v«>d 
by adding a suhcLnng quulLfit-r rifccL -i slmplL- or 
subscripted viiri.iblc. (Sen figure 2-2.) 

The substring qiijlir'Ler specifies th.e portion of 
the v.iliii- i>F ihe Htring variable Crom i^s mil: 
tliruii{;b nth character. 



sv (m:n) 




sv 


Indicates the stiinq vaiiiibie. 


(mn) 


Indicates the substring qudlifier with m 
and n ds numeric cun^tiints, variables, 
oi expressions. 



Figure 2-2. Substring Addressing Format 
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Thfi m and n represent the positions In the string.' 
The substring Indices are first rounded to inte- 
gers, then the following rules are applied: 

If in<l, then m is considered to equal 1. 

If m>the length of the string, then the sub- 
string addressed is the null string ImmudiaLely 
following the last character of the string. 

If n>the length of the string, then n is con- 
sidered to be equal to the length of the string. 

If n<m, then the substring addressed is the 
null string preceding the mth character of the 
string. 



TABLE 2-2. ARITHMETIC EXPRESSION 
OPERATOR HIERARCHY 



Hierarchy 



Operator 



^ or ** 

* and / 
+ and - 
+ and - 



Definition 



Exponentiation (Note: t on 
some teletypewriters) 

Multiplication and division 

Unary + and - 

Addition and subtraction 



If A$ contains ABCDEF, then the following is true: 

A$(l:4) represents ABCD. 

A$(0:3) represents ABC (rule 1). 

A$(4:8) represents DEF (rule 3). 

A$(4:4) represents D. 

AS(3;2) represents the null string between B 
and C. 

A substring variable can be used anywhere that a 
string variable can be used. 



EXPRESSIONS 

An expression is usually formed from a series of 
operands and operations; however, a single constant 
or variable can also be considered an expression. 
In BASIC, there are three types of expressions: 
arithmetic, string, and relational. The value of 
an arithmetic expression is numeric; a relational 
expression is either true or false; and a string 
expression is a string of characters. 



ARITHMETIC EXPRESSIONS 

Arithmetic expressions consist of a series of 
numeric operands and operators. Operators can be 
any arithmetic operator listed in table 2-2; oper- 
ands can be any numeric constant, simple or sub- 
scripted variable, numeric function reference, or 
any expression enclosed in parentheses. A function 
reference is a notation for activating a predefined 
algorithm. If arguments are required by the func- 
tion, the arguments are evaluated and passed to the 
function. The function then calculates and returns 
a result based on the arguments. The returned value 
is used in place of the function reference. BASIC 
provides several built-in functions and allows you 
to write your own functions. See BASIC Functions 
in section 5. 



Rules for Writing Arithmetic Expressions 

In the formation of arithmetic expressions, certain 
rules must be followed: 

Only numeric operands and numeric operators can 
be used. 

Two arithmetic operators cannot appear side by 
side; for example, X++Y Is not allowed. If a 
minus sign is used to indicate a negative value 
in an expression, parentheses must be used to 
separate the negative sign and associated oper- 
and from the remainder of the expression. For 
example : 



Correct 



Incorrect 



A*(-B) 



A*-B 



Operators cannot be implied; for example, 
(X+1) (Y+2) is not allowed. The correct form 
is (X+1) * (Y+2). 



The following are examples of valid arithmetic 
expressions; 

A+B*C/D^E 

Al(3,I+4)---2.6-G3/Z 

A+B**C 

A+SIN(X) (SIN is a built-in function) 

-3.14*R^2 



Arithmetic Expression Evaulation 

The rules for the evaluation of arithmetic expres- 
sions are as follows: 

Expressions within parentheses are evaluated 
first. 

Operations of higher precedence are performed 
before those of lower precedence. Precedence 
is determined by the hierarchy illustrated in 
table 2-2 from highest (1) to lowest (4). 
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Operations of equal priority or precedence are 
performed In order from left to right. 

Table 2-3 illustrates some examples of arithmetic 
expression evaluation. 

TABLE 2-3. EXPRESSION EVALUATIONS 



Expressions 


Evaluation Steps 


A+B*C/D^E 
A+( 8-0*3 

(-2)^2 


1. D'^E = a 

2. B*C = b 

3. b/a = c 

4. A+c = d (final value) 

1. B-C = a 

2. a*3 = b 

3. A+b = c (final value) 

1. 2-^2 = a 

2. -a = -4 (final value) 

1. -2 = a 

2. 3-^2 = 4 (final value) 



STRING EXPRESSIONS 

string expressions consist of a series of string 
operands and operators. There Is only one string 
operator available, string concatenation (+) . 
String operands can be one of the following: 



A string constant 

A simple or subscripted string variable 

A string function reference 

A substring reference 

The following are examples of string expressions: 

"TESTl" 

B$(l)+D$ 

B$(l:4) 

Concatenation 

The format of a string concatenation is shown in 
figure 2-3. The concatenation operation causes the 
string to the right of the operator, se2 to be 
appended or Joined to the end of the string to the 
left, se|. 



«1 


+ 


S02 










se 








IndicaTeii string constciiit. 


viiiiable, or 










expression 






Fi 


gu 


re 2- 


-3 


String 


Concatenation Format 



The character -V Is either a concateaatLon operator 
or an arithmetic operator, depending on the con- 
text. It must be surrounded by string variables to 
be considered a concatenation operator. Any ex- 
pression containing both string and arithmetic 
operands is illegal. 

Only one string operator can be used, so there is 
no hierarchy of operations. Parentheses can be 
used to group expressions into subexpressions, but 
such groupings have no effect on the result. 

The fatal error, STRING OVERFLOW, results If a 
concatenation operation produces a string longer 
than the allowable maximum. la normal mode, the 
maximum string length is 131070 characters. In 
ASCII mode, the string length maximum Is 65535 
to 131070 characters, depending on the number of 
escape code ASCII characters in the string. 

The folJowlng examples illustrate string expressions 
and the string concatenation operator. 

"ABC" + "DEF" evaluates to "ABCDEF" 

If string A$ contains the string expression SUB- 
STRING EXPRESSION, then A$(l:10) -t- "ADDRESSING" 
evaluates to "SUBSTRING ADDRESSING". 



RELATIONAL EXPRESSIONS 

There are two types of relational expressions: 
simple and compound. Simple relational expressions 
are formed by connecting two numeric or string 
expressions with a relational operator. Compound 
relational expressions are formed by connecting 
two simple relational expressions with a logical 
operator. 



Simple Relational Expressions 

The format of a simple relational expression is 
shown In figure 2-4. The relational expression 
operators that can be used to connect numeric or 
string expressions are shown in table 2-4. 



e^ op e2 
op 



Indicates numeric or string constants, 
variables or expressions. 

Indicates relational operator. 



Figure 2-4. Format for Simple 
Relational Expressions 

The rules for writing simple relational expressions 
are as follows: 

Comparison of a string to numeric expressions 
is not allowed. 

Only one relational operator is allowed in an 
expression. 

Relational expressions can be used only in IF 
statements (section 4). 



2-6 



19983900 H 



TABLE 2-4. RELATIONAL EXPRESSION OPERATORS 



Operator 


Definition 


= 


Equal to 


<> or >< 


Not equal to 


> 


Greater than 


< 


Less than 


> = or = > 


Greater than or equal to 


< = or = < 


Less than or equal to 



The rule for evaluating simple numeric relational 
expressions is as follows: 

The two arithmetic expressions are evaluated 
and then their resultant values are compared 
algebraically to yield a true or false value. 
If A = 2 and B = 3, the expressions in figure 
2-5 are evaluated as shown. 



Relational Expression 
A = B 


Value 


False 


A < > B 


True 


A > B 


False 


A < B 


True 


A>= B 


False 


A < = B 


True 


A*A+3<B*2 


False 



Figure 2-5. Evaluating Simple 
Relational Expressions 

The rules for evaluating simple string relational 
expressions are as follows: 

Strings are compared character-by-character in 
left-to-rlght order. BASIC compares characters 
according to their position In the collating 
sequence. (See appendix A.) For example, A Is 
less than B, since the numeric code is 65 for A 
and 66 for B. 

ASCII is the default collating sequence used for 
all string comparisons in BASIC. OPTION COLLATE 
can be used to change the collating sequence to 
a collating sequence that is native to the char- 
acter set being used^ See the OPTION state- 
ment, and appendix A (describes the various 
character sets supported by BASIC). 

Strings are equal if they have the same length 
and contain the same characters (including 
blanks) in the same order. Blanks are important 
when they are used in strings. 



When strings are equal in length, the first 
pair of corresponding characters that are not 
equal determines the greater string. For 
example, ABXY is greater than ABCZ because the 
numeric code for X is greater than the numeric 
code for C. 

When strings are unequal in length, but corre- 
sponding characters that can be compared are 
equal, the longer string is always considered 
greater. For example, ABX is greater than AB. 

When strings are unequal in length, but one of 
the corresponding characters that can be com- 
pared when scanning from left-to-right is 
greater, the string with the first character of 
greater value is the greater string. For 
example, X7 is greater than X6543, and X76 is 
greater than X75123. 



Compound Relational Expressions 

A compound relational expression is a sequence of 
simple relational expressions separated by logical 
operators. A compound relational expression evalu- 
ates to TRUE or FALSE. The format for the compound 
relational expression is shown in figure 2-6. The 
logical operator hierarchy is shown in table 2-5. 



r-i op r2 




'V'2 


Simple relational expression or com- 
pound relational expression. 


op 


Logical operator (AND, OR, unary 
NOT). 



Figure 2-6. Format for Compound 
Relational Expressions 



TABLE 2-5. LOGICAL OPERATOR HIERARCHY 



Hierarchy 


Operator 


Definition 


1 
2 

3 


NOT 
AND 

OR 


Logical negation 

Logical multiplication or 
logical intersection 

Logical addition or union 
(inclusive or) 



The rules for evaluating compound relational ex- 
pressions are as follows: 

Expressions within parentheses are evaluated 
first. 

Operators of higher precedence (hierarchy) are 
performed before those of lower precedence. 
The hierarchy and definition of the logical 
operators are provided in table 2-5. 

NOT is a unary operator and can appear to the left 
of any operand; however, it cannot appear as the 
only operator between two operands. 
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MOT can appear between the other logical operators 
(AMD, OR) and an operand (for example, r^ AMD MOT 
ra; rx OR HOT rj). 



MOT (A>B AMD C'D) 

Evaluates to MOT false, so the expression 
is true. 



In the truth table 2-6, the MOT (unary) operator Is 
evaluated. The MOTp is the opposite of p. In the 
following examples, A-1 and B>>2; thus, TRUE is 
printed for the first example, and FALSE Is printed 
for the second example. 

IF A<B THEN PRINT "TRUE" ELSE PRINT "FALSE" 

IF SOT A<B THEN PRINT "TRUE" ELSE PRINT "FALSE" 



I-J OR NOT J>I 

Evaluates to false OR true, so the expres- 
sion is true. 

2*I-J^2 AND KJ 

Evaluates to true AND false, so the expres- 
sion is false. 



In the first example. It is true that A is less 
than B; in the second example, it is false that A 
is not less than B (A is less than B). 

TABLE 2-6. NOT (UNARY) OPERATOR EVALUATIONS 



TABLE 2-7. AND OPERATOR EVALUATIONS 



p 


NOTp 


FALSE 
TRUE 


TRUE 
FALSE 



The logical operators AND, OR are defined in truth 
tables 2-7 and 2-8. 

In the examples below. Which illustrate the use of 
NOT, AND, and OR, if A=5, B=4, C=2, D=l, 1=8, and 
J=4, the results are as follows: 



NOT A>B AND C=D 

Evaluates to false AND false, so the ex- 
pression is false. 



p ^\,^^ 


FALSE 


TRUE 


FALSE 
TRUE 


FALSE 
FALSE 


FALSE 
TRUE 



TABLE 2-8. OR (INCLUSIVE) 
OPERATOR EVALUATIONS 



p ^\^^^ 


FALSE 


TRUE 


FALSE 
TRUE 


FALSE 
TRUE 


TRUE 
TRUE 
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FUNDAMENTAL STATEMENTS 



This section describes the statements that are used 
for the following purposes: 

Perform value assignment during program execu- 
tion. 

Choose the lower boundary of an array. 

Choose the collating sequence to be used for 
string and function comparisons. 

Define and allocate storage for arrays. 

Terminate execution of a program. 

Insert explanatory remarks into a program. 

The tables in each category of statements summarize 
the effect and usage of each statement. 



VALUE ASSIGNMENT 

The value of a variable can be assigned with the 
LET statement. For numeric variables, the present 
value is replaced by a new value. For string vari- 
ables, the complete present value or a specified 
substring of the value can be replaced by a new 
value . 



LET STATEMENT 

The LET statement assigns a value to one or more 
variables during execution of a BASIC program. The 
effect and usage of the LET statement is shown in 
table 3-1. The format of the LET statment is shown 
in figure 3-1. The use of the word LET is optional 
in the LET statement. 



TABLE 3-1. VALUE ASSIGNMENT 



Statement 


Effect 


Usage 


LET 


Assigns a numeric 
or string value 
to one '(3i''..:<tt>i!f-. 
variables speci- 
fied in the LET 
stateme,nt line. 


LET B = 3+2 
C(4) = 20 



When the LET statement contains a single variable, 
(nv or sv) on the left-hand side of the equals 
sign, the value of the expression ne or se on the 
right-hand side of the equals sign is assigned to 
the variable. When the LET statement contains a 
series of equalities, each variable is assigned the 
value of the expression. Subscript expressions are 
evaluated prior to the assignment of the value, and 
all expressions are evaluated according to the 
rule of operator precedence. (See table 2-2 in 
section 2.) For examples, see figure 3-2. 



LET nv=ne (or) nv=ne 

<or) 
LET sv=se (or) sv=se 

LET nvi-nv2=nv3 . . . 
(oi) Iivi-nv2-nv3 . . . 



=nv_=ne 



(or) 

LET ^v^=sv2=sv3 . . - "sv^-se 
(or) svi=sv2=sv3 . . , =sv_=se 

nv Indicates a numeric variable (simple or subscripted). 
The string variables can also have a substring 
descriptor. 

sv Indicates a string variable (simple or subscripted). 

ne Indicates a numeric expression of any complexity. 

se Indicates a string expression of any complexity. 



Figure 3-1. LET Statement Format 





• 








• 








• 






10 


LET 


A1=X+Y 




20 


LET 


A2=A3=A4= 


=X+Y 


25 


LET 


1=2+1 




30 


LET 


Z<I)=I=6 




35 


LET 


ZCI)=4 




40 


LET 

• 


B$="TE$T' 





Figure 3-2. LET Statement Examples 



In figure 3-2, the LET statement at line number 10 
assigns the value of the expression X+Y to the 
variable Al. The LET statement at line number 20 
assigns the same expression value to each of the 
variables A2, A3, and A4. The LET statement at 
line number 25 assigns the value 3 to variable I. 
The LET statement in line number 30 simultaneously 
assigns the value 6 to variable I and Z(3). (The 
subscript Is evaluated before any assignments 
occur; therefore, the value of I in Z(I) is 3.) 
The LET statement In line number 35 assigns the 
value 4 to Z(6). The LET statement in line number 
40 assigns the character string TEST to the string 
variable B$. 

Substring addressing can be used anywhere that 
string variables are used. Use the LET, and the 
INPUT statements to replace, delete, extract, or 
insert substrings into or from a simple or sub- 
scripted string variable. Any length string (up to 
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the limits) can be inserted into a string by using 
a substring descriptor. A substring can be re- 
placed by assigning a new value to that particular 
part of the string. A substring can be deleted by 
assigning a null value to it. The value of the 
original string can be lengthened or shortened with 
these insertion, deletion, and replacement opera- 
tions. A variable containing a null string can be 
assigned a value by extracting a substring value 
from one string and inserting it into the null 
string. Figure 3-3 shows several examples of 
substring addressing; all the examples assume an 
original string variable value of ABCDEF. 



The following examples of substring addressing use an original 
string value of ABCDEF. 



20 LET A${2:5)="XXXX" 



215LETC$(3:5)="" 



110LETB$(4)(2:0)="MIV1' 



30LETZ$(1:3)=Z$(4:6) 



10 LET B$=AS(2:4) 



Value XXXX replaces BCDE; 
value of string A$ becomes 
AXXXXF. 

Null value replaces CDE; 
value of string C$ becomes 
ABF. 

Value MM replaces the null 
string before B; value of 
subscripted string variable 
B$(4) becomes AMMBCDEF. 

Value DEF replaces the 
first three characters of 
string Z$; value of Z$ 
becomes DEFDEF. 

A$ is the original string 
value of ABCDEF; B$ 
contains the null value; B$ 
is assigned the extracted 
value BCD. 



Figure 3-3. Substring Addressing 
Using LET Statement 



OPTION STATEMENT AND 
DIM STATEMENT 

To choose a particular collating sequence for 
comparing strings and computing values, and to 
declare the base (origin) of all arrays, use the 



OPTION statement. To declare and allocate storage 
for 1-, 2-, or 3-dimenslonal arrays that are not 
the default size, use the DIM statement. See table 
3-2 for a summary of the effects and usage of the 
OPTION and DIM statements. 



OPTION STATEMENT 

Use the OPTION statement for two distinct pur- 
poses: to explicitly declare the lower boundary 
(or origin) of all arrays being used in the program 
to base or to base 1, and to choose the collating 
sequtjnce to be used in the program for comparing 
btrmgs 'ind for computing values of the CHR? and 
ORD functions. It the OPTION statement Is encoun- 
tered during normal program execution, control 
passes to the next statement, with no effect on the 
program. 



OPTION BASE n 

The OPTION BASE n statement explicitly sets the ori- 
gin of all arrays to either or 1. OPTION BASE n 
can appear only once in a program, and it must 
precede any DIM statement or any reference to an 
array. If OPTION BASE n is not specified, the 
lower boundary of all arrays is assumed ^to be 
base 0. The default for array subscripting "starts 
with element 0. 



In the following example, BASE n is declared as 1. 
Since the example specifies that subscripting starts 
with element 1, the DIM statement defines A as a 3 
by 4 (or 12 element) array, and B as a 2 by 13 (or 
26 element) array. 



100 OPTION BASE 1 

110 DIM A(3,4),B(2,13) 

Using OPTION BASE (the default) in the above 
example would cause the array A to be dimensioned 
as a 4 by 5 (or 20 element) array, and B to be 
dimensioned as a 3 by 14 (or 42 element) array. 
Other examples of using OPTION BASE n are shown 
under Matrix Statements In section 8. Figure 3-4 
shows the possible formats for OPTION BASE n. 



TABLE 3-2. OPTION AND DIM STATEMENTS 



Statement 


Effect 


Usage 


OPTION 
DIM 


Can set the lower boundary of all 
arrays being used by the program 
to base or to base 1. Also, 
this statement can select the 
collatinq sequence to be used 
for String comparison and for 
value computation of the CHR$ and 
ORD functions. 

Defines and allocates storage for 
1-, 2-, and 3-dimensional arrays. 


OPTION BASE 1 

OPTION COLLATE NATIVE 

OPTION COLLATE STANDARD 

DIM A(4,4), B(15) 
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1. OPTION BASE n 

2. OPTION COLLATE NATIVE 

(oi) 
OPTION COLLATE STANDARD 

3. OPTION BASE n. COLLATE NATIVE 

(or) 
OPTION BASE n, COLLATE STANDARD 

lor) 

OPTION COLLATE NATIVE, BASE n 

(uri 
OPTION COLLATE STANDARD, BASE n 

n Indicates the origin to be set; it can be 
either or 1. 



Note 

You should not use OPTION COLLATE NATIVE 
in normal mode. See Future System Migration 
Guidelines, appendix E. 



Figure 3-4. OPTION Statement Formats 



OPTION COLLATE 

The OPTION COLLATE NATIVE and OPTION COLLATE 
STANDARD determine the collating sequence used by a 
program for comparing strings and for computing 
values of the CHR$ and ORD functions. Figure 3-4 
shows the formats for these two choices. 

OPTION COLLATE STANDARD Is the default collating 
sequence; it specifies that the ASCII collating 
sequence is to be used by the program for comparing 
strings and computing values of the CHR$ and ORD 
functions. Every character in the BASIC character 
set (as shown under BASIC Language Structure) is 
assigned an ASCII character code; the smaller the 
ASCII character code, the earlier the character 
appears in the collating sequence. This ordering 
is important In string comparison operations be- 
cause BASIC compares characters according to their 
assigned numeric codes in the applicable character 
set. For example, A is less than B because the 
ASCII (or BASIC decimal) code is 65 for A and 66 
for B. Table A-1 in appendix A provides a list of 
characters and their corresponding ASCII character 
codes. 

OPTION COLLATE NATIVE instructs BASIC to select the 
collating sequence native to the character set 
being used by the program. The character set used 
by a program is determined by the AS parameter of 
the BASIC control statement. (See Batch Opera- 
tions, section 12.) As shown In appendix A, the 
native character sets supported by BASIC can be 
classified as the ASCII character set or as the 
normal character set. The native collating se- 
quence for ASCII character sets (described in 
appendix A as NOS ASCII 128-character set, NOS/BE 
ASCII 128-character set, and the Extended Character 
Set) is the same as for the standard collating 
sequence. The native collating sequence used for 
normal character sets (described In appendix A as 
CDC 63-character set, CDC 64-character set, ASCII 
63-character set, and ASCII 64-character set) Is 



display code. However, because of the antici- 
pated changes In BASIC, it is recommended that 
OPTION COLLATE NATIVE not be used In normal mode. 
See the Future System Migration Guidelines, appen- 
dix E. BASIC treats display character codes in the 
same way as ASCII character codes. That is, the 
smaller the display character code, the earlier the 
character appears in the collating sequence. 
Table A-2 in appendix A provides a list of char- 
acters and their corresponding display character 
codes. 

The COLLATE option can be used only once in a pro- 
gram. If the statement is not specified, OPTION 
COLLATE STANDARD is assumed by default. 



DIM STATEMENT 

The DIM statement explicitly defines one or more 
arrays and allocates storage space for the named 
arrays. The format for the DIM statement is shown 
in figure 3-5. 



DIM m^CnC'], 
nri-i - 



n 



nc 



m^(nci, . . . , ncg) 



Indicates numeric or string matrix 
identifier. 

Indicates one-to^B| unsigned integers, 
separated by commas, that represent the 
maximum value of each subscript. 



Figure 3-5. DIM Statement Format 

Arrays require a DIM statement when a subscript 
value greater than 10 is needed. To save space, 
use the DIM statement to dimension an array with an 
upper subscript limit of less than 10. An array 
not previously defined by the DIM statement is im- 
plicitly declared to have one dimension (10) when 
an element Is referenced by an array variable with 
one subscript; two dimensions (10,10) when the ele- 
ment is referenced by an array variable with two 
subscripts; and three dimensions (10,10,10) when 
the element Is referenced by an array variable with 
three subscripts. In all cases, the maximum sub- 
script for each dimension in implicitly declared 
arrays is 10. 

Use DIM statements anywhere in a program, but 
define an array prior to usage of that array. See 
Future System Migration Guidelines, appendix E. 
However, an array variable cannot be declared in a 
DIM statement more than once in the same program. 
An array can be redimensioned when a matrix state- 
ment is executed. (See Redimensioning and Matrix 
Operations, section 8.) DIM is not executable; 
the program is not affected If DIM is encountered 
during normal program execution. 

Arrays passed as arguments to the INV function are 
limited to 100 times 100 elements. (See INV func- 
tion, section 8.) In all other cases, the number 
of dimensioned array elements is limited only by 
the amount of available memory. Figure 3-6 
illustrates use of the DIM statement to define 
arrays and to reserve space for each of the 
declared array elements. The examples presented in 
figure 3-6 assume that subscripting begins with 
element 0. 
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• 100 DIM X$(5,5), B3(1,2), XI (50) 

This statement reserves space for: 

X$ A two-dimensional string array with 
6 times 6, or 36 elements. 

B3 A two-dimensional numeric array with 
6 elements. 

XT A one-dimensional numeric array with 
51 elements. 

• 50 DIM G2(5,6,7), A0(9,2), P${2,3) 

This statement reserves space for: 

G2 A three-dimensional numeric array with 
6 times 7 times 8, or 336 elements. 

AG A two-dimensional numeric array with 
10 times 3, or 30 elements. 

P$ A two-dimensional string array with 
12 elements. 



NOTE 

Each element of a numeric array requires one 
computer word. Each element of a string array 
requires 1 + n computer words where n is a 
function of the number of 6-bit characters 
currently assigned to the string. If the number 
of characters is zero, n=0. If the number of 
characters Is nonzero, n=INT ((number of 6-bit 
characters +11) /10) + 1. 



TABLE 3-3. REM STATEMENT AND TAIL COMMENT 



Statement 


Effect 


Usage 


REM 

Tail Connent 


Adds comments 
to a program 
without 
affecting 
execution. 

Adds conments 
to the end of 
BASIC state- 
ments. 


REM SOLVE FOR Y 

'Beginning of 
subroutine A 



REM ch.| . . . chfi 



ch^ . . . ch^ Any comment or explanatory character 
string within thelp§-character total 
statement length limitation; comments 
can be continued on additional REM 
statements. 



Figure 3-7. REM Statement Format 



100 


REM M 


EQUALS MASS IN GRAMS 


110 


REM V EQUALS VELOCITY IN CM/SEC. 


120 


REM T 


EQUALS KINETIC ENERGY 



Figure 3-6. DIM Statement Examples 



Figure 3-8. REM Statement Examples 



PROGRAM COMMENTS 

Program comments in a BASIC program are Indicated 
by u.<5ing the REM statement or' by rapipendlng state- 
ments ^ with, ts,!! ; comments. Table 3-3 summarizes the 
effects and usage of the REM statement and the tail 
comment . 



REM STATEMENT 

The REM statement is used to insert explanatory 
remarks or comments Into a program. REM is a non- 
executable statement and, therefore, has no effect 
on program execution. The format of the REM state- 
ment appears in figure 3-7. Figure 3-8 shows some 
examples of the REM statement. 

If control reaches, or is transferred to, a REM 
statement , the next executable statement following 
the REM statement Is executed. In the following 
example, if A is equal to 10, control is trans- 
ferred to the REM statement and the next executable 
statement becomes 40. 

10 IF A=10 GOTO 30 

20 PRINT "A=AVERAGE" 

30 REM TEST FOR SECOND AVERAGE 

40 IF B=20 PRINT "B=AVERAGE2" 



TAIL COMMENTS 

An alternate form of .i comment \s the tail comment. 
.\ tai". comment can be added to the i-nd of any BASIC 
statement , '.-xccpt DATA and image, by adding an 
apostrophe (') before the comment. For example: 

100 LF.T F = 1000 'F IS FIXED COSTS 

An apostrophe always Indicates the beginning of a 
tail comment, except when it appcartj In a quoted 
string, a DATA statement, or an image statement. 



PROGRAM TERMINATION 

To terminate a program, use either the END state- 
ment or the STOP statement. Table 3-4 shows the 
purpose of these two statements. 



STOP STATEMENT 

The STOP statement can be used anywhere in a BASIC 
program to cause an immediate exit from the pro- 
gram. When the STOP statement is encountered, 
program execution terminates at that particular 
point, and control is returned to the operating 
system. Figure 3-9 shows the format of the STOP 
statement. 



3-4 
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TABLE 3-4. END AND STOP STATEMENTS 



Statement 


Purpose 


STOP 
END 


Terminates program 
execution. 

Marks physical end 
of a source program 
and terminates 
execution. 




Figure 3-9. STOP Statement Format 

The STOP statement is equivalent to an uncondi- 
tional GOTO statement that specifies the line 
number of an END statement. 

In the following example, the STOP statement causes 
program execution to terminate if Al is less than 
zero; if Al is greater than or equal to zero, pro- 
gram execution continues until the END statement is 
encountered . 



100 IF AKO GOTO 120 

HO IF Ai>=0 GOTO 130 

120 STOP 

130 PRINT "VALUE IS SUFFICIENT." 



999 END 



BID STATEMENT 

The END statement signals the end of a BASIC pro- 
gram; if control reaches the END statement during 
program execution, the program terminates as if a 
STOP statement had been executed, fpu^y the END 
statement must be the last statement In the pro- 
gram. The format of the END statement appears in 
figure 3-10. 

The END statement is optional, but it should be 
used in programs because future versions of BASIC 
might require its use. See the Future System 
Migration Guidelines, appendix E. 




Figure 3-10. END Statement Format 
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BASIC FLOW CONTROL STATEMENTS 



41 



This section describes control statements of the 
language that are used to change the sequence of 
execution of statements, to test and branch on a 
condition, to perform loops, and to monitor and 
control errors and interrupts. 



TEST AND BRANCH STATEMENTS 

Testing and branching to certain points in a program 
is accomplished with the GOTO, the ON GOTO, the IF, 
and the W . . ,lpSm , -^ t'EX.S^ statements. Table 4-1 
defines the test and branch statements and their 
effects in a program. Further details of these 
statements follow table 4-1. 



GOTO STATEMENT 

The GOTO statement unconditionally transfers 
control from one point in the program to another, 
thereby interrupting the normal sequence of in- 
structions. The format for this statement is shown 
in figure 4-1. 



GOTO specifies that the statement at the referenced 
line number is to be executed next. Normal sequen- 
tial execution continues from that point. If a 
GOTO statement references a nonexecutable state- 
ment, such as a DIM statement, execution continues 
with the first executable statement that follows 
the referenced nonexecutable statement. 



Since the GOTO statement unconditionally causes 

control to be transferred to the specified line 

number, care must be taken that this does not set 
up an infinite loop. 

For example, consider the program in figure 4-2. 
When this program is executed, it cycles continu- 
ously through lines 10, 20, and 30, and never 
reaches the END statement at line 40. It can be 
terminated only by interrupting the program. (See 
the NOS Interactive Facility reference manual 
(NOS 1 sites). Volume 3 of the NOS 2 reference set 
(NOS 2 sites), or the INTERCOM Version 5 reference 
manual.) Inserting an IF statement before the GOTO 
(25 IF X=100 GOTO 40) provides an exit. When the 
value of X equals 100, the IF statement branches to 
line 40 and automatically terminates the program. 
The IF statement is described later in this section. 



GOTO In 

In Indicates line number. 



Figure 4-1. GOTO Statement format 



10 LET X=X+1 
20 INPUT X 
30 GOTO 10 
40 END 



Figure 4-2. Infinite Loop 



TABLE 4-1. TEST AND BRANCH STATEMENTS 



Statement 



GOTO 



ON GOTO 



IF 



IF THEN ELSE 



Effect 



Unconditionally transfers 
control to a specified state- 
ment. 

Transfers control to one of 
a group of statements depen- 
ding on the integer value 
specified in the ON GOTO 
statement. 

Tests a relationship or a 
group of relationships. If 
the test Is true, control 
moves to a referenced pro- 
gram statement; otherwise, 
control falls through to the 
next executable statanent. 

An extension of the IF 
statement that specific', 
an action for both true and 
false conditions. 



Usage 



GOTO 50 



ON A/3 GOTO 50,60 



IF A=20 THEN 80 



IF A<.0 THEN ^0 CLiE 100 
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ON GOTO STATEMENT 

The ON GOTO statement provides for conditional 
branching depending on the value of an expression. 
The expression is evaluated and rounded to an in- 
teger value. Then control is transferred to Inj 
if ne is equal to 1; to ln2 if ne Is equal to 2; 
and so forth. If the value of the expression is 
negative, zero, or greater than the number of line 
numbers specified, an execution diagnostic ON 
EXPRESSION OUT OF RANGE is issued. Figure 4-3 
Illustrates the formats for the ON GOTO state- 
ment. The second format should not be used because 
it might not be supported in future versions of 
BASIC. See the Future System Migration Guidelines, 
appendix E. 



1. ON ne GOTO Ini, In2, In3, . . . , ln„ 



2 ON no THEN In-i, In2, In3, 



In,, 



ne Indicates numeric expression. 

In Indicates line number. 



Figure 4-3. ON GOTO Statement Format 

In figure 4-4, SGN(A) can have the value -1, 0, or 

1. The expression SGN(A)+2 can have the value 1, 

2, or 3, and control transfers to statements 100, 
110, or 120, respectively. If, for example, A has 
the value 2.5, then SGN(A)+2 has the value 3, and 
the order of statement execution is 95, 120, 130, 
and the next logical statements. 



095 ON SGN(A)+2 GOTO 100,110,120 

100 LET A=A*A 

105 GOTO 130 

110 LET A=A*B 

115 SOTO 130 

120 LET A=A*B A 2 

130 LET B=A+1 



Figure 4-4. Example of OK GOTO and 
GOTO Statements 



IF STATEMENT 

The IF statement tests conditions and controls the 
sequence of operations. The formats for the IF 
statement are shown in figure 4-5. If the rela- 
tional expression r is true, the program transfers 
control to the statement at line number In, if 
format 1 is used, and executes statement stm, if 
format 2 is used. Do not use the format GOTO be- 
cause it might not be supported in future versions 
of BASIC. See the Future System Migration Guide- 
lines, appendix E. If the relation r is false, the 
next sequential statement is executed. Examples of 
simple IF... THEN clauses are shown in figure 4-6. 



1. IF r THEN In (or) IF r GOTO In 

2. IF r THEN stm 

r Indicates simple or compound relational 

expression. 

In Indicates line number. 

stm Indicates executable BASIC statement. 



Figure 4-5. IF Statement Format 



20 IF 2*1 >= J A 2-1 THEN 165 

Assuming I = 8 and J = 4, the value 16 is compared to the 
value 15; the evaluation is true, the next statement executed 
is at line number 165. 

15 IF I = J OR NOT J < I THEN 140 

Assuming I = 8 and J = 4, the relation I = J is false. The 
relation J < I is true; however, NOT J < I is false. The 
compound relational expression evaluates to false (false or 
false is false) and the branch to statement 140 is not made. 

25 IF A <> THEN LET B = 

This statement causes B to be set to if A is not equal 
to 0. The next statement in sequence is then executed. 
If A = the next statement in sequence is executed but 
the LET B = is not. 



Figure 4-6. IF Statement Examples 

The stm parameter can contain any executable state- 
ment other than a FOR or a NEXT statement. The 
nonexecutable statements OPTION, DATA, DEF, DIM, 
END, FNEND, image, and REM are not allowed in the 
stm parameter. 

Multiple IF... THEN clauses can be embedded within a 
single IF statement to perform various kinds of 
conditional tests, as shown in figure 4-7. The 
maximum number of IF... THEN clauses is governed 
only by the 150 character line width limitation. 
The IF statement in figure 4-7 contains two 
IF... THEN clauses to test for a zero value in each 
of the numeric variables A and B. If both A and B 
are zero, C is assigned the value 14. If neither A 
nor B is zero, C is not assigned the value 14. 

When the IF statement contains multiple IF... THEN 
clauses, the clauses are tested consecutively, 
beginning with the first clause. 



030 IF A=0 THEN IF B=0 THEN LET C=14 



Figure 4-7. Nested IF... THEN 
Statement Example 
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IF... THEN... ELSE STATEMENT 

The TF. . .THEN. . .ELSF, statement, an extension oC the 
simple IF stateniL'nt , enables t-xecution to continufi 
at a spefiififid lino number when the IF i-onditlon is 
false, as well as whi-n it Is true. The forra.ita fur 
this form of the IF ■statement .-iro 'ihovm in figure 
4-8. Do not use format 2 bocnuse il might not be 
supported 1n future versions of BASIC. See Future 
System Migcition Guidelines, appendix E. 



1. 


IF r THEN Ini or stm^ ELSE In2 or stm2 


2. 


IF r GOTO In^ ELSE Inj or stmj 




r Indicates simple or compound relational 




expression. 




In Indicates line number. 




stm Indicates executable BASIC statement. 




Figure 4-8. IF... THEN.. .ELSE 



Statement Format 

In figure 4-8, if tlie re1:itionai expre^ss.'on r is 
true, thi- program transfers contnil to lino number 
In^ or it executes statement sr.nj, doptMulinfi 
upon which waf. ■4pi!>; Tied in the stateraeiit. Tf thi.- 
rfil.itloiuil expression Is fa'.-?f, jtutenent .^tra-. -jr 
the. statc'mpiii ;u- Ini is sxeciiti'd. The st'itijinenl 'J 
stmj anil s'_m2 can be any exiTutabl a BASTiJ 
statements exufpL FOR and NEXT. Tliey .-.innot be 
none.XGcutsble st-ilfmynLH such as OPTION, DAT\, OI\F, 
DIM, END, FNEND, i-iiag..-, or ffliM. 



Figure 'i-O conL.iins examples ot the 1F...1'1IKN. 
iStatement . 



.i=;lse 



1. 


IF A<0 THEN 150 ELSE 160 


2. 


IF A$="STOP" OR A$="END" THEN STOP 




ELSE 100 


3. 


IF X=0 THEN LET Y=0 ELSE LET Y=Y/X 


4. 


IF A=0 THEN IF B=0 THEN PRINT 1 




ELSE PRINT 2 ELSE PRINT 3 


5. 


IF A=0 THEN IF B=0 THEN PRINT 1 




ELSE PRINT 2 


6. 


IF A=0 THEN GOSUB 500 ELSE IF B=0 




THEN GOSUB 600 ELSE LET B=3 



Figure 4-9. IF. ..THEN. ..ELSE 
Statement Examples 

Example 1 c.tu.ses control to go to 1 li\c number 
I'lO when A is less than -/lero, and to I.lne 
number 160 when A Is ni>t less than zero. 

Exa^iple 2 ■-.luscs the program to stop when the 
.string v-iriable .\$ contains eithor STOP or END, 
a'lJ to l-.rnnsfv.-r control tT line 100 when AS 
e.ont.n* IKS .'iny other value. 

Example .T sets Y to zero when X Is equal to 0, 
and sets Y to Y/X when X is not equal to 0. In 
either case, control falls through to the next 



sequential statement after Y has been ar^signed 
H value. 

Example 4 causes the number 1 to be printed If 
both A and B «ro equal to zero, the number 2 to 
be printed if A is equal to but B is not 
equal to 0, and the number 3 to be printed if A 
is not equal to (the value of B is not tested 
i:i this case). When IF. . .THEN. . .ELSE state- 
ments are nested, as in this example, the 
inside ELSE belongs to the Inside IF.. .THEN, 
the next level ELSE (the second one seen when 
reading from left to right) belongs to the next 
level 1K...THK.N, and the levels continue in 
this progression (similar to the way nested 
parentheses are paired). It is not necessary 
to have as many ELSEs as IF. ..TliENs however, 
iind outside IF. , .THK.V. . .EI.SEs are executed 
first. 

Example 5 causes 1 to he printed if both A and 
'A are equal to 0, ? to be printed If A Is equal 
to zero but B Is not, and nothing to be printed 
if A is not i-qua'. to zero. In all cases, the 
T.'xt statement in bequence is executed next. 
There is no ET.SE .'lause for IF A == THEN. It 
is a simple IF... THEN witli an IF. . .TFIKN. . .ELSE 
as Its consequent statement. 

!n example 6, ii A is equal to 0, the subroutiie 
il ' ine .500 is executed, and control returns to 
the next sequciiLial statement following the 
IF. If A is not equal to 0, the ri^l.itiori B is 
equal to is tested. If B is equal t-a 0, the 
Hubrouli:ie at Liie 600 is executed, and control 
rf turns to the next sequential line. If B is 
:iot equal to 0, it is set to 3, and control 
fills through to the next sequential statement. 
Neit'ier the subroutine .at line 500 nor the 
subr')uLino at line 600 is executed in this 
,'.asi». In this exiiiaplo, the consequence of the 
n:.SE in the first IF. . .THEN. . .ELSE is an 
IF. . .THEN. . .KI.SE statement. 



LOOPING 

Looping, the repetitive execution of the same 
statement or statements, can be efficiently con- 
trolled in BASIC with the FOR and NEXT statements. 
Table 4-2 summarizes these looping statements and 
their effect in a program. 



FOR... NEXT STATEMENTS 

The FOR statement initiates repeated looping 
through the statements that physically follow the 
FOR statement, up to and Including a corresponding 
NEXT statement. The FOR statement must appear as 
the first statement of the loop, and the NEXT 
statement must be the last statement of the loop. 
The format of the FOR. . .NEXT statements is illus- 
trated in figure 4-10. 

When the FOR statement is executed, the expressions 
are evaluated and their values are saved as ini- 
tial, step, and final values of the loop. The con- 
trol variable is assigned the initial value and, if 
it does not surpass the final value, the statements 
between the FOR and NEXT statements are executed. 
When the NEXT statement Is encountered, the value 
of the control variable is adjusted by the step 
value. A comparison Is made between the value of 
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TABLE 4-2. LOOPING STATEMENTS 



Statement 



FOR 
NEXT 



Effect 



Marks the beginning of a loop and in- 
itiates its execution. 

Marks the end of the FOR loop; tests for 
end-of-loop condition and reexecutes or 
terminates depending on the results. 



Usage 



FOR I-l TO 10 



NEXT I 



1. FOR snv = ne-i TO ne2 STEP ne3 

(or) 

2. FOR snv = ne.] TO ne2 
NEXT snv 



neg 



Indicates simple numeric variable 
(called the control variable; It must 
be identical in both statements). 

Indicates any arithmetic expression 
(called the initial value). 

Indicates any arithmetic expression 
(called the final value). 

Indicates any arithmetic expression 
(called the step value). 



Figure 4-10. FOR... NEXT Statement Formats 

the adjusted control variable and the specified 
final value: if the control value has not sur- 
passed the final value, looping continues at the 
statement following the FOR; if it has, the loop is 
complete and execution continues with the statement 
following NEXT, The statements between the FOR and 
NEXT statements are never executed if the initial 
value is beyond the final value. 

The STEP value can be positive or negative. For a 
positive STEP value, the initial value must be less 
than the final value upon entrance to the loop. 
Similarly, for a negative STEP value, the Initial 
value must be greater than the final value. If 
either condition is not met, the loop does not exe- 
cute, and control branches to the statement follow- 
ing the NEXT statement. Figure 4-11 illustrates a 
loop with a specified STEP value of +2. Execution 
of the loop in figure 4-11 causes the values 1, 3, 
5, 7, 9, and 11 to be printed. Statements 20 
through 30 are repeated six times, once for each 
value assigned to X. 





■ 










010 FOR X=1 
020 PRINT X 
030 NEXT X 
040 END 


TO 


11 


STEP 


2 



The initial, final, and STEP expressions are 
evaluated only once (upon entrance into the loop). 
These values do not change during execution of the 
loop, even if the program changes the value of the 
variables within the expressions. Tlic value of the 
icontrol variable, however, can be changed by state- 
kents within the loop; Its last value is always 
Ld justed by the STEP value and is used in compari- 
son to the final value, as shown in figure 4-12 
:p.irt 1. Execution of the loop in figure 4-12 part 
1 causes the values 2, 4, 6, 8, and 10 to be 
printed. Even though the FOR statement specifies 
thiit the control variable X be incremented by an 
Implicit STEP value of +1 until it exceeds 10, the 
LET statement adds 1 to X, thereby causing the 
cotUrol variable to be incrumented by 2 For each 
pass through the loop. Likewise, a nested FOR 
statement may use the same control variable as used 
in .111 outer FOR statement as shown in figure 4-12 
part 2. Thus, the value of the control variable 
can be changed by statements within the loop. 



2. 



010 FOR X=1 TO 10 
020 LET X=X+1 
030 PRINT X 
040 NEXT X 
050 END 



010 FOR 1=1 TO 3 



020 


FOR J=2 TO 


4 




030 


FOR 1=3 


TO 5 




040 


PRINT "I = 


■ 1. T . 


050 


NEXT I 






060 


NEXT J 






070 


NEXT I 






080 


END 







=";J 



produces: 



I = 3 

I = 4 

1 = 5 

1 = 3 

I = 4 

I = 5 

1 = 3 

I = 4 

I = 5 



= 2 

= 2 

= 2 

= 3 

= 3 

= 3 

= 4 

= 4 

= 4 



Figure 4-11. Loop With Specified STEP Value 



Figure 4-12. Control Variable Value Changed 
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After a loop has repeated itself the specified 
number of times, the final value of the control 
variable is the first value not used. That is, 
upon normally exiting from a loop, the control 
variable assumes its final value plus an additional 
STEP value (+1 when a STEP value Is not speci- 
fied). Using a control statement, such as GOTO, to 
prematurely terminate a loop causes the control 
variable to retain the value it has when the con- 
trol statement is executed. Figure 4-13 shows the 
effect that a normal exit from a loop has on the 
control variable. The X in line number 120 assumes 
the value of 1, 3, 5, 7, 9, and 11, and the X in 
line number 140 assumes the value 13. 



■ 










110 FOR X=1 
120 PRINT X 
130 NEXT X 
140 PRINT X 
150 END 


TO 


11 


STEP 


2 



Figure 4-13. Loop Exit Effect 
on Control Variable 

Loops can be nested (loops specified within loops) 
to a maximum depth of 10, but the loops must not 
Intersect each other. Examples of correct and 
incorrect looping are shown later in this section. 

A loop can contain a GOTO statement or other state- 
ments that transfer control outside the range of 
the loop. In this case, the loop terminates prema- 
turely, and the control variable retains its latest 
value. Do not transfer control into a FOR... NEXT 
loop. See Future System Migration Guidelines, 
appendix E. 

Figure 4-14 shows the effect of the FOR statement 
on control variables. The loop initiated in line 
number 112 did not execute because the initial 
value is not greater than the final value, and the 
step value is negative. Figure 4-15 shows examples 
of correct and incorrect looping. 



Statement 




Values 


110 FOR X = 2 to 4 


2, 


3, 4, 5 


111 FOR G = 6 TO 3 STEP -1 


6, 


5, 4, 3, 2 


112 FOR X = 5 TO 10 STEP -1 


5 





Figure 4-14. FOR. ..NEXT Statement Examples 



ERROR AND INTERRUPT 
PROCESSING 

T'iri?i' Btati!3ents (ON ATPF.NTION, OK ERRO\, j:id JUMP) 
;ind four rum- : "ons (ASL, ESL, 1:.SM, aid NXL) -irt- 
ined to detect mid coiLrol prorensin4» e>T.jr<? ;mtl 
the tc-nninal Lnternipts Irli.it occur during progroin 
execution. Tabic 4-3 deffne.s theso error and 
interrupt processing statements ami lunctitns and 
their efferts in a pcojjram. 



Correct: 


Incorrect: 




— FOR X . . . 


[-FOR X . . . 




—FOR Y . . . 


-FOR Y . . . 




r-FOR Z . . . 


-NEXT X 




Lnext Z 


-NEXT Y 




pFOR 






Lnext Q 






-NEXT Y 






—NEXT X 





Figure 4-15. FOR... NEXT Loops 

ON ATTENTION STATEMENT 

r.ie OK ATTENTION statemi-nt (.•sLablishea an address 
for i.:iterrupt handling if an interrupt occurs dur- 
ing program execution. It ynahlos the program to 
respond to f^rminal Inti-rrupts. "igure A-16 allows 
t1>.-> r»rmiiL Cor Liu' ON AITEKTION statement. 



1. 


ON ATTENTION GOTO In 


2. 


ON ATTENTION THEN In 


3. 


ON ATTENTION 


in 


Indicates line number. 



Figure 4-16. ON ATTENTION Statement Formats 

Formnlii 1 and ?. in figure 4-16 specify that control 
i -I to be I. r.insForred to ntatement In if a Lerrainal 
;UL'rrupt occurs during execution. The ON ATTENTION 
statarae.'T; !s iiKi-d i-i i-onjunct '.on with the attention 
■?t.itaraent line (ASL) function. 

The -sL-iteraents at In can use thr- ASI, function to 
dotormine wliere thi: Lorininal interrupt occurred. 
Aftur the int^.i-rupt loca- loii is detomined, appro- 
priate acL'on to process the terminal inti-rnipL can 
b'.- t-ikL'T; execution s-an he reinitiated at any point 
In the program. 

Normal terminal InLerrupL processing is suppressed 
ani! tho yrograin can gain control of interrupts by 
f'f execution of fonnat 1 or Cormat 2 of the ON 
ATTENTION statement. Norma] interrupt procfissing 
is r.istored (OK ATTENTION turned off) if format 3 
of the ON ATTENTION statement is executed, or if 
format l or 2 of the ON ATTENTION sCatement has 
hecn executed and a terminal interrupt, which 
transfers control to statement In, is entered. 
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TABLE 1-2. ERROR AND INTERRUPT PROCESSING (STATEMENTS AND FUNCTIONS) 



Statement 



ON ATTENTION 

ON ERROR 

JUMP ne 

ASL(x) 

ESL(x) 

ESM{x} 

NXL(ne) 



Effect 



Establishes an address for interrupt handling if an 
interrupt occurs. 

Establishes an address for error handling if an error 
occurs. 

Transfers control to a program statement depending 
upon the value of an expression. 

Returns the line number of the statement at which the 
last terminal interrupt occurred. 

Returns the line number of the statement that caused 
the most recent program execution error to occur. 

Returns the error number associated with the most 
recent program execution error. 

Returns the line numbe'- of the statement whore the 
program execution is tn resume. 



Usage 



ON ATTENTION GOTO 100 

ON ERROR GOTO 100 

JUMP 100 

ASL{Y) 

ESL(Z) 

ESM(C) 

NXL(Z5) 



The firsL ON AI'TENTION sL.n tftmcnt should appear dt , 
or near, the ■jL.irt of cIk' pni>rait. Wlifii ^n ON 
ATTENTION st.itetnpnt is t'licoiiMtered duri-ig corap-:i.i- 
tlon, L'.if'M fi)l losing si .iteraunt is ih.inaed to ti-st 
for LTtL't-nipt-s before cxpc.itioi. Burins execation, 
iiii-nrriipts are normal ly rocoRnl :'f.d .it Llie -Lnrt of 
a statemeiiL so th.it statcmoTif? art v.ol partially 
etp.ciited. The exi-.eptions are tennlnal I/O state- 
ment!.. Tnl ernipts arc recognized «lu->n an INPL'T 
statuTiicTiL Is waitfnB fcir data. Whi-:i an input re- 
quest is Interrupted before any values have been 
entered, nono. of tlie viri aVil es on llui input lL-?t 
are moditie.l. Interrupts are aLae rtv-Ognized at 
eac-.n line of output, ilowever, many ILnus of output 
processing iiscially occur before data appoars at the 
terminal, tliereCore soTie data ! i n.:s o.ould appear 
after the terminal is intemipteil . 

Figure 4-17 shows liow the ON ATTHKTTOK 'statement 
can be used to co'iCrol terminal i nli'rrupts. In the 
sample dialog of tliis figure, the programmer mis- 
takenly types In ■'»43, then pri^ssfls thii appropriate 
key ti) cause a terminal interrupt. T^ie ON ATTENTION 
statement astabl ishe=i line number 900 as the ON 
ATTENTION address, and control trc.nsfe-s to li'ie 
900, at which point the program oiTars a choice of 
recovery options. Tins programmer enters NEXT ITEM 
and, when Che NEXT ITEM or zero is requested, the 
corrected vaUie of 't-'t* is entered and the dialoR 
continues normally. 



Fonnuts ! and 2 specify thai control Is to transfer 
to stalHment In if an execution error oci;urs. ilie 
ON ERROR statement, in conjunct ion with the error 
slar.'Riant line mmber CEST,) function (explained 
later Lu this section; and Che error statement 
message (ESM) Junction (explained later In this 
section), allows the BASIC progra.u to respond to 
execution errors. 

After the error location and error type, are deter- 
mined, appropriate action to process ! he error can 
be ta'<i;n; execution can then be reinitiated at any 
poi-iL in the program. The program should not ^ive 
control to a ClLViN statement that chaiis to a copy 
of the original program. An endless loop can re- 
sult if the error that caused the OK ERROR branch 
recurs eai'i time Clio program is executed. 

Normal error processing is suppressed (allowing the 
program to .-.ontinue exiicuting at the ON F.RROR 
addrfess) by the execution of format 1 or 2. Normal 
error processing is restored after format 3 of the 
ON l;K.ROR statement has been executed or after 
I'omat I or format I of the ON ERROR statement has 
been executed and control has been transferred to 
the specified statement in as a result of an error. 

ft is possible to recover from any execution error; 
however Korae errors, such as time limit and oper- 
ator drop, can only be recovered from one time. 
(See appendix H.) An example of the OS ERROR 
statement is shown later in this section. 



ON ERROR STATEMENT 

The ON ERROR statement is used for detecting and 
processing errors that occur daring program execu- 
tion. Figure 4-18 illustratt's the three formats 
for Che ON ERROR statement. 



JUMP STATEMENT 

The JUMP statement transfers control to the state-; 
ment at the line number determined by the value of I 
an aritlimetic expression. Tlie format for the JUMP; 
statement is illustrated in figure 4-19. 



I 4-6 
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100 ON ATTENTION GOTO 900 



200 PRINT "ENTER NEXT ORDER NUMBER OR 0" 

210 INPUT N 

220 IF N=0 GOTO 500 '0 MEANS END OF ORDERS 



300 PRINT "ENTER NEXT ITEM NUMBER OR 0" 

310 INPUT I 

320 IF 1=0 GOTO 400 '0 MEANS END OF ITEMS 

330 PRINT "ENTER aUANTITY" 

340 INPUT Q 



900 Z=ASL(0) -Z IS LINE NUMBER AT WHICH TO CONTINUE 

910 ON ATTENTION GOTO 910 'RESET SO INTERRUPT WILL NOT CHANGE Z 

920 PRINT "INTERRUPTED AT LINE";Z;", LAST ORDER ";N;", LAST ITEM" -I 

930 PRINT "TYPE STOP, NEXT ORDER, NEXT ITEM, OR CONTINUE" 

940 INPUT Z$ 

950 IF Z$="STOP" THEN STOP 

960 ON ATTENTION GOTO 900 'RE-ENABLE AT ORIGINAL LINE NUMBER 

970 IF Z$="NEXT ORDER" THEN GOTO 200 

980 IF Z$="NEXT ITEM" THEN GOTO 300 

990 IF Z$="CONTINUE" THEN JUMP Z 

995 GOTO 910 'INVALID RESPONSE. REPEAT QUESTION 

999 END 



ENTER NEXT ITEM NUMBER OR 

? 443 

ENTER QUANTITY 

? ATTNt 

INTERRUPTED AT LINE 340 , LAST ORDER 6087 , LAST ITEM 443 

TYPE STOP, NEXT ORDER, NEXT ITEM, OR CONTINUE 

? NEXT ITEM 

ENTER NEXT ITEM NUMBER OR 

? 444 

ENTER QUANTITY 

? 2 



TThe key that initiates an interrupt varies with the operating system 
and the terminal mode. Consult the appropriate reference manual for 



this information. 



Figure 4-17. ON ATTENTION Statement Example 



1. ON ERROR GOTO In 

2. ON ERROR THEN In 

3. ON ERROR 

In IndiRjtes line number 



JUMP n« 

ne. Indicates iiunieriu Ronbtant, v<iriulilu, 

oi expression. 



Figure 4-19. JUMP Stdtement F.irmat 



Fiiju'f if-IS. ON ERROR Statement Formats 
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The expression is evaluated and rounded to an 
integer value; control is transferred to the state- 
ment at the resultant line number, provided It 
exists. If the statement does not exist, a diag- 
nostic is Issued. A JUMP statement cannot refer to 
a REM statement. Care must be taken not to Jump 
into a FOR loop or function definition. 



ASL FUNCTION 

The ASL function returns the statement line number 
of the statement executing, or about to be exe- 
cuted, when the most recent terminal interrupt 
occurred. Figure 4-21 shows the format for the ASL 
function. 



The JUMP statement is designed to he used in error 
and interrupt processing routines where line num- 
bers are assigned to variables by use of the NXL, 
ESL, and ASL functions. The JUMP statement should 
never be used in place of a GOTO statement. 



Figure 4-20 illustrates a program example using the 
ON ERROR and JUMP statements, and the ESL, ESH, and 
NXL functions (described later In this section). 
The following sentences explain the meaning of 
specific statements in this program. Execution of 
statement 100 suppresses normal error processing 
and ensures that on a subsequent error, control 
will be transferred to statement line number 160. 
If an error occurs in reading the data (line number 
120), i-ontrol is transferred to statement line 
number 160. Normal error processing is then 
reinstated. If another error occurs during further 
execution, the program aborts. In statement line 
numbers 160 and 170, value 120 is saved in X and 
value 126 is saved in Y. FurtVicr action can be 
taken based on the user requirements for processing 
errors. Value 126 is Lho error message number. 
The statement at line number 180 indicates that If 
an error occurred in statement line number 120, 
execution control is transferred to statement line 
number 210. A Jump is made from statement line 
number 220 to statement line number 130 and normal 
execution continues. If another error occurs 
during execution, the Job aborts. 



ASL<x) 

X Indicates a dummy variable. 



Figure 4-21. ASL Function Fonnat 



The ASL function returns a value of -1 if a terminal 
interrupt has not occurred since the most recent 
execution of an ON ATTENTION statement. Thus, when 
processing terminal Interrupts, the function value 
should be saved before Issuing another ON ATTENTION 
statement. 



In the statement 100 LET A=ASL{x) , A is assigned 
the line number of the statement that was to be 
executed when the terminal interrupt occurred. I?or 
an additional example of the ASL function, refer to 
the ON ATTENTION statement example (figure 4-17). 



ESL FUNCTION 

The ESL function returns the line number of the 
statement that caused the most recent program exe- 
cution error. The format for the ESL function 
appears in figure 4-22. 



100 ON ERROR SOTO 160 

110 PRINT "READ ERROR WILL BE PROCESSED BY PROGRAM" 

120 READ X1,X2,X3 

130 PRINT "VALUES READ WERE ";X1;",";X2;",AND";X3 

140 STOP 

150 REM ERROR PROCESSING ROUTINE 

160 LET X=ESL(X) 

170 LET Y=ESM(X) 

180 IF X=120 THEN 210 ■ 

190 PRINT "ERROR NOT IN STATEMENT 120" 

200 STOP 

210 PRINT "ERROR NUMBER #";Y;"DETECTED AT LINE #";X 

220 JUMP NXL(X) 

230 DATA 2.0,3.0,"STR1NG" 

240 END 



produces: 



READ ERROR WILL BE PROCESSED BY PROGRAM 
ERROR NUMBER # 126 DETECTED AT LINE # 120 
VALUES READ WERE 2,3 ,AND 



Figure 4-20. Example Using ON ERROR, JUMP, ESL, ESM, and NXL 
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ESLIx) 

X Indicates a dummy variable. 



Figure 4-22. ESL Function Format 



ESM(x) 

X Indicates a dummy variable. 



Figure 4-23. ESH Function Format 



Till- KSr, luiu-tioii n-tunib :■ v.-iliii> uL -1 il .i,i i jii'.-u ■ 
linn iTciir Imr iiuL occurLL-d riih-i' i ho ino-il n-. fiii 
■.-xviiiLion (iF .in ON ERROR SL.itumonC. ■I'liiif., wli.-n 
piuiicKRlnj; i-rroFB, tlie riin^tioii v.ilm- j,lio'jlfi li- 
savL-d prior In iKKiiini; .iiiolliL-r ON F.RRnR m n.-m.-ii. . 

In lliL- sLalemcinr 100 LET A-ESI.t'i), A ih .i-5-:|);ii.m 
thf ISiu- niimbur ol rhi- si .-itcniL-iiL Lli.iL .-.lui!!; I 'll< 
i-rriii . Voc an .iilcliLicmnl i.-H,inipU' ol tlii' KSl. 
tiinrtiuii, sua Cigiiro 'i-ZO, 



ESM FUNCTION 

Till- KSM iunorliin rcturas flu- error iiimilu'i jhsoi iaLcd 
Willi tlio m<iGL rpr.pnt program I'Xftiili.in error. ( Soi; 
l.iblf 1 in .ippcnclih H lor .i I (si uf i-i rui iiiiitb. r^ 
.i.s.s»i-i.ilfd with pxl'i-iiI ion i-rr-ir;,.! Kifjnn- -t-jl 
.sliiiw.s Ihc- lorm.il lor llii- ItSN tiiiii-L Inii. 

Tlic liSH luiu-tion rctiirim a v-iiiii- ul -I j t .m 
pxeoiirifjii error Ivis nol ncrurrcd «.iiii-o Lhi- iii.>'.r 
ri'.-. Ml i-XKi-iin'on f>f tlif ON KRKOR st.it.-m.-iil . Ihu' , 
thi'j riiiii'l Loii v.iliii' '.liotild lie s.ivi'd jirJor Ui i'.',iiiii,», 
.iiiollier ON ERROR sl.iLi>mpiit. 

; In the stalenoiit 100 l.lfr A-ESM(x), llu- urr^r niinii..T 
io£ Ihp t-rror Lb assinnc-i! Lo A. F'.ir .isi ,iddl t jhii.i I 
icx.imiilu oi tlip BSH CiiiicCiiin, >.co iit;ure li-lU. 



NXL FUNCTION 

This function returns the next line number of the 
!>Latentent that follows the line number specified in 
the argument of the NXU function. Uso NXL to du- 
termlni.' at what point program execution is lo resume 
in the ovenl of an orror or interrupt. 

For exfiraplo, NXIXESL(x)) returns the iine mimber of 
the liuf following the one that caused the error. 
Thu format for Lhe NXL function appear.^ in 
figure 4-24. 



NXL{ne) 



Indicates numeric constant, variable, 
or expression. 



Figure 4-24. NXL Function Format 

Tlie NXL function sJiould not reft'r lo a REM .st.-ilemcnt 
or to any nonexlsting statement because such refer- 
encing can cause program execution to terminate 
(unless ON ERROR is in effect) and tlie diagnostic 
ILLEGAL IjABEL to be Issued. The function argument 
ne is evaluated and rounded to an integer value. 
For an example of the NXL function, see figure 4-20. 
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BASIC FUNCTIONS 



A function is a predefined algorithm. A function 
returns a value to the point of reference each time 
the function is invoked from an executing program. 



Two kinds of functions are provided with BASIC: 
the predefined functions of the language, called 
built-in functions; and the functions that can be 
written by using the DEF and FNEND statements, 
called user-defined functions. The built-in func- 
tions are in the form of subset programs written to 
perform specific kinds of tasks. 



TJie built-in functions and user-defined functions 
are classified as follows: 

Built-in functions: 

Mathematical functions 

System functions 

String functions 

Matrix functions 

Error and interrupt processing functions 

I/O functions 

User-defined functions : 

Single-line functions 
Mtiltlple-line functions 



The number and type of parameters (e) passed with a 
function reference must exactly correspond to the 
number and type of parameters expected by the func- 
tion; for example, a string must be passed where a 
string is expected and a number must be passed 
where a number is expected. A diagnostic is issued 
if the type and number of parameters contained in 
the function reference do not correspond to those 
expected in the definition. 

Built-in function parameters that are integer 
quantities use the value of the numeric expression 
rounded to an Integer. Dser-defined functions can- 
not specify that a parameter is an integer. With 
user-defined functions, all numeric values are real 
numbers and the function either truncates or rounds 
values to integers, depending upon the written 
statement. Function reference parameters are eval- 
uated and the values of the parameters are passed 
to the function. The function is then evaluated 
and the result is returned to the point of the 
function reference. 



MATHEMATICAL FUNCTIONS 

Table 5-1 is an alphabetical list of the standard 
mathematical functions that can be referenced by a 
BASIC program. In this table, the function argu- 
ment ne can be a numeric expression of any com- 
plexity and can include other function references. 



Although all of the built-in functions are defined 
In this section, some of the functions are described 
In more detail in other sections of this manual. 
The seven tables in this section identify the 
built-in functions and Indicate their functional 
classification. (See the table of contents for 
specific section references.) The user-defined 
functions are described at the end of this section. 



REFERENCING A FUNCTION 

Built-in and user-defined functions are referenced 
by specifying a function name followed by asso- 
ciated function parameters in parentheses. If no 
parameters are used in the function definition, no 
parameters are needed in the function reference. 
The form for a function reference is shown in 
figure 5-1. 



Figure 5-2 shows an example of the ABS and the SQR 
mathematical functions. The absolute value of -71 
is multiplied by the square root of 520. 



10 LET C= 
20 PRINT 
30 LET 0= 
40 PRINT 
50 LET T= 
60 PRINT 
70 END 


=ABS (-71 ) 

C 
:S()R(520> 

D 
=C*D 

"ABS(-71)*SaR(520)=";T 


produces: 






71 

22.8035 
ABSC-71)*SQR(520) = 


1619.05 



function name (61,62, 



.«n) 



Indicates numeric or string expression; 
parameter is optional. 



Figure 5-1. Function Reference Format 



Figure 5-2. ABS and SQR Functions Example 



RANDOM NUMBER GENERATION 

The generation of pseudo random numbers is con- 
trolled by the RND function and by the RANDOMIZE 
statement. The RANDOMIZE statement overrides the 
predefined sequence of numbers generated by SND. 
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TABLE 5-1. MATHEMATICAL FUNCTIONS 



Function 



Description 



ABS{ne) 

ATN(ne) 

COS(ne) 

COT(ne) 

DET(m) 

DET 

EXP(ne) 

INT(ne) 



LGT{ne) 
L06(ne) 
MAX{nei,ne2 nego) 

MIN(nei,ne2,...,ne2o) 
RND or RND(ne) 



ROF{ne) or 
R0F{nei,ne2) 



SGN(ne) 

SIN(ne) 
SQR(ne) 
TAN(ne) 



Finds the absolute value of ne. 

Finds the arctangent of ne in the principal value range {-ir/2) to { + ir/2). 

Finds the cosine of ne; the angle ne is expressed in radians. 

Finds the cotangent of ne; the angle ne is expressed in radians. 

Returns the determinant of matrix m. 

Returns the determinant of the last matrix inverted by the matrix function INV. 

Finds the value of e to the power of ne. 

Finds the largest integer not greater than ne. 

Example: INT(5.95) = 5 and INT(-5.95) = -6. 

Finds the base 10 logarithm of ne; ne must be greater than zero. 

Finds the natural logarithm of ne; ne must be greater than zero. 

Returns the maximum value from the list of parameters; 2 to 20 parameters 
can be used. 

Returns the minimum value from the list of parameters; 2 to 20 parameters 
can be used. 

Returns a pseudo random number from the set of numbers uniformly distributed 
over the range of to 1 . See the description and examples in this section. 

Finds the value of nei rounded to ne2 decimal places. If ne is omitted, 
then ne is rounded to the nearest integer. Some exact aecimal fractions 
cannot be represented exactly in fixed word length binary computers. Re- 
sults of the ROF function, therefore, may differ by one digit from results 
obtained from rounding by hand. 

Interrogates the sign of ne and returns a value of 1 if ne is positive; 
if ne is 0; or -1 if ne is negative. 

Finds the sine of ne; the angle ne is expressed in radians. 

Finds the square root of ne; ne must be > 0. 

Finds the tangent of ne; the angle ne is expressed in radians. 



RND FUNCTION 

The RND function returns a pseudo random number 
from the set of numbers uniformly distributed over 
the range of to 1. The formats for the RND func- 
tion are shown In figure 5-3. Do not use the second 
format because it might not be supported in future 
versions of BASIC, (See Future System Migration 
Guidelines, appendix E.) 



RND is equivalent to RND(O) in that it returns a 
value in the established sequence of pseudo random 
numbers uniformly distributed over the range of 
to 1. Random numbers are returned in the same 
sequence each time the program containing RND is 
executed unless the RANDOMIZE statement is used 
to override the predefined sequence. RANDOMIZE 
affects RND(O). RND(ne) affects RND, if ne>0. The 
RANDOMIZE statement and its effect on random number 
generation is discussed in more detail later in 
this section. 



RND 

(or) 

RNDdiel 



IndiLtites any numeric expression. Shr 
d«t.iil pxrijjniitions liitur in this section. 



Figure 5-3. RND Function Format 

An example of the RND function is shown in 
figure 5-4. The program was executed twice. The 
RND function twice returned the same set of pseudo 
random numbers. An example later In this section 
shows this same program with the RANDOMIZE state- 
ment that ensures that a different sequence of 
pseudo random numbers is generated each time the 
program Is executed. 
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100 


FOR T=1 


TO 3 


110 


L=RND 




120 


E=RND 




130 


I=RND 




140 


PRINT L,E,I 


150 


NEXT T 




160 


END 





produces: 



.580114 

.29762 

.275736 



produces: 



.580114 

.29762 

.275736 



.950513 

.4537 

.305651 



.950513 

.4537 

.305651 



.786371 

6.26194E-3 

.689101 



.786371 
6.261 94E-3 
.689101 



Figure 5-4. RND Function Example 



The value of ne In ROT)(ne) affects random number 
generation as follows: 



ne>0 A random number sequence is Initialized 
based on the value of ne^ and the first 
nvraiber in the sequence is returned. 
Each reference to RND with ne equal to 
a particular positive constant value 
initializes the sequence at the same 
starting point and returns the same 
value. Therefore, the same number or 
the same sequence of numbers can be 
returned each time RND is referenced 
and/or each time the program is run if 
the ne>0 arguments are used. If ne>0, 
RND(ne) can affect RND without the 
argument . 

ne=0 The next number in the established 
sequence of pseudo random numbers is 
returned. If the sequence was not 
previously established by an ne>0 RND 
reference, a standard constant Is used 
to initiate the sequence. The same 
sequence of random numbers is returned 
when using RND (0) references each time 
the program is run unless you initial- 
ize the sequence with a different posi- 
tive (>0) value each time the program 
executes. This can be done by using a 
first reference, such as RND(CLK(0)). 
CLK(O) returns the time-of-day. If 
ne=0, RANDOMIZE affects RND (ne). 

ne<0 The first reference initializes a random 
nvimber sequence based on the current 
time of day, and returns the first value 
in that sequence. Subsequent refer- 
ences with ne<0 return the next number 
in the sequence. A program that uses 
ne<0 returns a different value on each 



reference and a different sequence each 
time it is run. The sequence initial- 
ized by ne<0 is separate from the se- 
quence controlled by ne>0, and ne=0 
references to RND sequences. 



RANDOMIZE STATEMENT 

The RANDOMIZE statement causes a new initial or 
seed value to be placed in the random number gen- 
erator each time a program containing the RND func- 
tion is run. The placement of this new value in 
the random number generator overrides the prede- 
fined sequence of pseudo random numbers generated 
by the RND function; therefore, the RND function 
returns a different sequence of values each time 
the program is executed. Figure 5-5 shows the 
format for the RANDOMIZE statement. 



RANDOMIZE 



Figure 5-5. RANDOMIZE Statement Format 

Figure 5-6 shows an example using RANDOMIZE to 
control random number generation. This program was 
executed twice. The RANDOMIZE statement causes RND 
to return a different sequence of values, unlike 
the example shown for the RND function that does 
not use RANDOMIZE (figure 5-3). 



090 RANDOMIZE 






100 FOR 1=1 TO 


3 




110 L=RND 






120 E=RND 






130 I=RND 






140 PRINT L,E,I 






150 NEXT T 






160 END 






produces: 






.34368 


.310629 


.590422 


.993254 


.237534 


.876869 


.481367 


.900958 


.320888 


produces: 






.463818 


.82842 


.977286 


.882296 


.96833 


6.09989E-2 


.630496 


.41131 


.654263 


Figure 5-6. 


RANDOMIZE 


Statement Example 



SYSTEM FUNCTIONS 

The bullc-in system functions are ChK$ (or CLK(x)), 
DATS, TIM, and USR$. Table 5-2 defines tht system 
functions, and figure 5-7 illustrates the use 
of the CLK$, DAT$. and TIM functions in a BASIC 
program. 
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10 LET X=TIM(1) 

20 PRINT "CLK$ TIME 0F";CLK$;"=";CLK(1);"IN CLK(X) TIME" 

30 PRINT DATS 

AO LET Y=TI«(2) 

50 PRINT "TOTAL ELAPSED TINE IS";Y-X 

60 END 



prcxiuces: 



CLK$ TIME OF 12.40.43.= 12.6786 IN CLK(X) TIME 
81/06/22. 
TOTAL ELAPSED TIME IS .001 



Figure 5-7. Program Using System Functions CLK$, DATS, and TIM 



TABLE 5-2. PREDEFINED SYSTEM FUNCTIONS 



Function 



CLK$' 



CLK{x)t 



DAT$ 



TIM(x) 



USR$ 



Description 



Returns the time of day as a string 
constant in the form; 

hh.mn.ss. 

Example: 17.36.37. 

Returns the time of day in hours and 
fractions of an hour in a 24-hour 
scale (x is a dummy argument). 

Examples: 

(1) Three minutes and 58 seconds 
past the hour of 9:00 is 
represented: 

9.06611 

(2) Midnight is represented: 
0.00 

(3) Noon is represented: 
12.000 

(4) 2:30 p.m. is represented: 

14.50 

Returns the date as a string con- 
stant in the following form: 



Example: 



yy/mm/dd 
74/08/11 



Returns the total elapsed centra! 
processor time in seconds used-to- 
date in this job (x is a dummy 
argument). 

Returns the NOS 7-character user 
number. On NOS/BE, this function 
returns the string USERNUM. 



'Refer to appendix E for recommendations on 
the use of the CLK$ and DAT$ functions. 



STRING FUNCTIONS 

The string functions provided by BASIC are used to 
create and/or manipulate character string data in 
specific ways. Strings cin contain from through 
131U70 characters In normal mode and from through 
65535 or through 131070 characters in ASCIi mode, 
depending on the number of escape code characters 
in the string. Table 5-3 is an alphabetical list 
of string functions. 



ASC FUNCTION 

ASC returns the decimal code (ordinal position in 
the ASCII character set; of a character name or 
abbreviation in Us argument. ASC returns the same 
result whether used in ASCII or normal mode. 



Tlie mode of the program is controlled by the AS 
(ASCII) parameter in the BASIC control statement 
and by the mode of the terminal. (See Batch Opera- 
tions, section 12, and appendix A.) ASCII values 
range from to 127. Character abbroviatlons are 
listed in tabic A-1 of appendix A. 



The format for the ASC function is shown in 
figure 5-8. Use of the ASC function is not recom- 
mended; the ORD function should be used instead. 
For guidelines, see append tx E. 



ASCIchI 










Ol 










ASC(.ibi) 










ch 


lndii:ati!s 


any charactei. 






abi 


Indicates abbreviation for 


an 


ASCII 




character 


name. 







Figure S-8. ASC Function format 



CHR$ FUNCTION 

This function returns the character corresponding; 
to the decimal code (ordinal position in the col-| 
lating sequence) specified in the function argu-j 
nent. The format for the CHR$ function appears ins 
figure 5-9. The argument ne is evaluated and | 
-rounded to an Integer. 



5-4 
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TABLE 5-3. STRING FUNCTIONS 



Function 



ASC(ch) or 
ASC(abr) 

CHR$(ne) 



LEN(se) 
LPAD?(se.ne) 
LTRM$(se) 
LWRC$(se) 

ORD(se) 

P0S(sei,se2,ne) 

or 
POSCsej.sej) 

RPAD((se,ne] 

RPTJ{se,ne) 

RTRM5{se) 

STR$(ne) or 
STR5(ne,se) 

UPRC$(se) 

VAL(se) 



Description 



Returns the ASCII code in decimal of the character in its arqument. Use ORD 
instead.? 

Returns the character with the decimal code (ordinal position in the collating se- 
quence) that corresponds to ne. 

Determines current length of string se. 

Pads string se out to ne characters by adding spaces on the left of string se. 

Trims string se of all leading space characters. 

Returns a string consisting of the se string value witn all uppercase letters 
replaced by their lowercase equivalents. 

Returns the decimal code (ordinal position) of a character in string se in the 
collating sequence being used. 

Returns the position of string seg within string se|. The position search begins 
with character ne. If ne is omitted, 1 is assumed. 

Pads string se to ne characters by inserting blanks on the right of string se. 

Returns the string created by repeating the se string ne times. 

Trims string se of all trailing space characters. 

Converts numeric value to string representation. If present, se represents an imdoe 
specification. " 

Returns string se with all lowercase letters replaced by their uppercase equivalents. 
Converts string se to its numeric value. 



+ 

'See Future System Migration Guidelines, appendix E. 



CHRSfne) 



Indicates numeric constant, variable, or 
expression. 



Figure 5-9. CHR$ Function Format 



CHRS is valid for a]l characters in the current 
collating sequence, including nonprinting charac- 
ters. If the standard ASCII collating sequence Is 
In effect, CHR$ character values exist for argument 
values through 127; If the nonstandard display 
code collating sequence is in effect, CHR$ charac- 
ter values exist for argument values through 63, 
or 1 through 63, depending on the character set 
being used by your system. (See appendix A.) 
OPTION COLLATE controls the collating sequence 
being used, and is described in the section on 
Fundamental BASIC Statements. A fatal error re- 
sults if CHRS argument values are outside the valid 
range of characters represented in the collaLiiig 
sequence. 



This function returns the samu result wiiether used 
in ASCII or normAl mode if the standard ASCII col- 
lating sequence is in effect. Tlie function returns 
different values if tlie nonstandard collating se- 
quence is in effect. The mode of the program is 
controlled by the AS (ASCII) parameter in the BASIC 
control statement and by the mode of the terminal 
in the BASIC subsystem under NOS, (Sec Batch Oper- 
ations, section 12, and appendix A.) In normal 
mode, 12-bit escape code characters do not exist. 
However, if the Rtand.ird collating sequence is in 
effect, CHR$ returns a 12-blt escape code character 
for argument valuesi of through 31 and for values 
of 96 through 127, which are treated as two normal 
6-bit clwracters when manipulated or printed. An 
example of the CHR$ function Is shown in 
figure 5-10. 



LEN FUNCTION 

The LEN function returns the current length, in 
characters, of the string specified by the argument 
in this function. Figure 5-U shows the format for 
the LEN function, and figure 5-12 shows an example 
of how to use this function to return the length of 
the string S$. 
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10 REN 98 IS THE ASCII CODE FOR LOWERCASE B 

15 OPTION COLLATE STANDARD 

20 LET B$=CHR$(98) 

30 PRINT 8$;" IS";LEN(B$);"CHARACTER(S)" 

40 END 



In ASCII mode, produces: 



b IS 1 CHARACTER(S) 



In normal mode, produces: 



-B IS 2 CHARACTER (S) 



10 REM 98 IS THE ASCII CODE FOR LOWERCASE B 

15 OPTION COLLATE NATIVE 

20 LET B$=CHR$(98) 

30 PRINT B$;" IS";LEN(B$);"CHARACTER{S)" 

40 END 



In ASCII mode produces: 



b IS 1 CHARACTER(S) 



In normal mode, produces: 



ILLEGAL CHR$ ARG AT 20 
BASIC EXECUTION ERROR 



Figure 5-10. CHR$ Function Example 



Figure 5-11. LEN Function Format 



100 LET S$="543" 
110 LET A=LEN(S$) 
120 PRINT A 
130 END 



produces: 
3 



LPAD$ FUNCTION 

The LPADS [unction pads <i stclng out to a bpecLfied 
number ut rharacters by inserting blanks on the Left 
icilled left pad). Figure 5-13 bIii»«s the format 
tor Lho LPADS function. 



LPADS(sa.ne) 

se Indicates the string constant, variable, or 

expression; repre^ent^ the string to be iiadded 
with spaces. 

ne Numeric expression that indicates the desired 

length of the resulting string; ne must be 
greater than or equal to zero. 



Figure 5-13. LPADS Function Format 

in figiiri' "j-li, II nc is r.ot grcitur Lli.iii Che length 
i<f E<L , i.lii-11 ^f iA thp rL'iiuUanl string. It nc lb 
.11 ilif furm of an expreSblun, the argumunL is uval- 
ii.ili'il .ind ruundt'd to a:i liiLcgur. If nu Is lebb 
thjii xr-ro, the disgnostU- ILLEGAL LPAD$ AKGUMENT is 
ruturnt-d. 

In figure j-14, thti LPADS functiun padb (.wo bpai e 
rh.irdLti.Ta lo t hi- Iftt ol tlic siring v.-ili.u for A$; 
the (lutpiil from thn PRl.NT sUti'menl -thuus the tun 
i!p:ici.b hftwuiin and L2J4S. 



LEN<se) 












:>e 


Indicates a 
expression. 


string 


constant, 


variable. 


or 



100 LET A$="1234" 
110 LET B$=LPAD$(A$,6) 
120 PRINT "0";B$;"5" 
130 END 



produces: 



aM12345 



Figure 5-14. LPADS Function Example 



LTRMS FUNCTION 

The I.TKM^ :'un(.lioR iri-as l\w i]r!);iii<il strlig m all 
ieadinj; spm u rluractrrs ibP'KCb tin the left). Tin- 
fiirsn.iL for LTKN$ is sliown in figure S-li. 

lu figiirf '}-'.f>, the LTKH^ luncLiDn trimb the Ic.iillng 
sp=icu cli.ir.ii-iprh of string iS$. Tin- prini.jul frum 
Lhe sui-uiiJ PRINT .st.itemGnt hjs nu spareb lu'lwi'rn 
'.ill' .r.iluo H .ind the value 12343. 



LTRM$(se) 



String constant, variable, oi expression 
that represents the string to be trimmed. 



Figure 5-12. LEN Function Example 



Figure 5-15. LTRHS Function Foriiiat 
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100 LET B$=*1^12345" 

105 PRINT "8";B$;"5" 

110 PRINT "8";LTRri$(B$);"5" 

120 END 



produces: 



8M1 23455 
8123455 



Figure 5-16. LTRNS Function Example 



LWRC$ FUNCTION 

Tlie> I.WRr.% r^inction rPtiirns thu jri>;inil 'itriiid w = Lh 
.ill .is uppercMKi- li-ltersi rcpl.ii-cil bv ihi-ir ^nw-r- 
r.is»- i.'iiiivalpiits. Tin- I.WKC$ function :>, mily iincruj 
In AS(.ll miiclo. In nunn.il minJi*, ilif '.WKi:'; rum 1 I.iji 
iPCiirns t!ic or1gln.il string in Its s.iiiif lorji becjiist; 
no liiui'ri.isc- IcLLprs cxIbL in the nr.rm.ii chdra,-ter 
■tel. TliL- rpiulls oT this function dL>|icnd nn tlii' 
ti-rminjl yiiu iisi-. Figure 'i-17 iliustrdCc-. tlu' 
riirin.it for tlie l^lint(:$ rijni-tioii. 



Tn rigiirc 5-18, llio LWRC$ fun.tion retiirn!, L'lu 

'.'jwt?ri-.is(.< i>(iuival(!nt of llio v.i!ue of string AS. 

Till.' rptiirni-il w.ilue "file .i" ii. .jhjwn lii-low tin' 
••riKin.<l value "FILE A". 



LWRC${se) 



String constant, variable, or expression 
that represents the string to be converted 
to lowercase. 



Figure 5-17. LURCS Function Format 



100 LET A$="FILE A" 

110 PRINT A$ 

120 LET B$=LURC$(AS) 

130 PRINT 8$ 

140 END 



produces: 



FILE A 
file a 



Figure 5-18. LWRC$ Function Example 



ORD FUNCTION 

rhf (JKII Lund Ion rpliinib the J.-i im.il ri.J.. funlii.j' 

|)OBLti.in) of ,1 char.4cCtT in tilt.- colLuliiR ■:i.fiiii-ni:i. 
liiMiiR iisi-d. Till; ciiarjicLer or .ibbrevi.il l.m lot d 

.'h.ir.u-tiT jume having its urdiiul poiirl.-in rctiiriii'd 

IK •ipiti-Ll ii-J JK a Ntrlng in the funcLion .irRiimc^nt , 
.IS shown In figure 'i-19. 



OKO(sel 



Indicates a string constant, vdriable, or 
expression that can havti the vaJuesi of 
single chaiacters, and the 2 and 3- 
chaiacter mnemonic •iblKcviatioiis of 
the ASCII character set in appendix A. 



Figure 5-19. ORD Function Format 



Ik-i-iiii.il . oil.'s lli.ii rupruKcnL iirdlri.i: poa.Liunh 
rtn«i. lri>ni " f.T i27 wlicii the sl.iiifldrd ASi.Il tol- 
LiCIhr -.iquence is in ufiect, .iiid Irom It, 63 i>r 1 
to hi w!u>n the nunsL.ind.ird dlapl.-y . .ide rilLitinj; 
si-iuc'ifi; ;•! in i-ilLcL i' see lilt OPTION slilMmunt .iiid 
•ilipiMiiiix M. Tin; Ji.ngni>:!CiL- II.T.ECiAL ORD ARCl'MENT 
• b is.siii'd ;f tlii; ,iry,iim(.iiL •>Lrini> ..jiii.i.ns -nm-i- (Ikmi 
■ini! ili.ir.i,:Lor .i.ij rite .-.Lrinx i- not .in .ibl.i>»v uit ion 
n-r .1 1 li.i-,ii.tPi .i.iiai'. figiiri.. '-20 shows .i.i Oii.inip^o 
>C us in;; llip OKI) runi-.Liiin. 



100 PRINT "PROGRAM FOR ORD FUNCTION" 

105 LET A$="a" 

110 LET A=ORDCA$) 

115 PRINT "CHARACTER ";A$;" HAS ORDINAL OF ";A 

120 PRINT ORD{"LCA"> 

130 PRINT 0RDC"5") 

140 PRINT ORD("BS") 

150 END 



produces: 



PROGRAM FOR ORD FUNCTION 
CHARACTER a HAS ORDINAL OF 

97 

53 

8 



97 



Figure 5-20. ORD Function Example 



POS FUNCTION 

The: POS fiinition returns the •Jt.irling uluricter iif 
iinu sppcirii-d btring wUliln .mother spuLiiiud 
string. Thi fornuL fur the POS lunr.tlun ,ippujr=> in 
riguru J-,; I. 



P0S(sCi,sc2.ne) oi POS(se2,se2) 
'"I 



String constant, variable, or expression; 
represents the string to be searched. 



se2 String constant, variable, or expression; 

reprosents the string to be found. 

ne Numeiic constant, v.iri.ible, or Rxfircbsion, 

represents the [losition at which to btart 
the siidich. Optional for stiirting position 
2. 



Figure 5-21. POS Function Format 
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The- POS function returns the first chdrdcter posi- 
tion of strfnK Bf2 within string sei. The 
scrfrrh fur this first chjractt-r poRitliin hpRlns at 
position ne. Chardctur positions .iru numbered from 
tlic li>ri, dnd sl.irt with onu. 

It the vaIul- aRROcJdtPd wlLli ii(<2 Joi-b not occur 
within the (k-slgnated porLiun of suj , ilu- fuiir- 
Lion vdluf will return zi-ro. If Rtartini; punLtLun 
ni' i^ omictfcl dr Ii'Sh than ], It Ik cunii'lerej to 
be ■.■t|u-il tn 1, ir -v Js greater than the number of 
i:h<iriictury nt qe|, ttif purtinn at sl-] buinf; 
spcrifleil :■: llib null nLrinj; starting jtLur thL' 
Ijst char.ii-lcr pubJti'in of ''" ] • 7hf niimurl'- ex 
pre.saKin re Is cvdlujliM dnj ruunikd to <in inLc{;er. 

Figure 't-Zi sliuw^ ,1 pragr.im usin^ the POS function 
til dotprmlnc the position of different string; char- 
.-ii-rtTii within Ihi' original strliig AS thdt liaia the 
Vrilui- OIITSTANDINC. 



RPAD$ FUNCTION 

Thi' KPADf Tuni 1 Liin jiiiils :i striu;; t'l .i spcitrii-d 
numbLT iif i-lid.-ii U-r.s by InsL-rtln;^ M.inks nn thi' 



rif.hr r>*.il!ed rl)ihl pad). Fij^urc 
turm.it tnr the KPAUc fuiiLtiou. 



■5-23 shuWE thi- 



ll' the leiiglh .irgumt-nc m- \t nut griMlui !.h.in 
llii' htriii)> .iri'-.iinciil »>■, thi-n le. 1 1; rhn- resuitjnl 
blrliiij. nhe jrgumt'iit ni> s<i i-v.il u.tii-il .ind ruuuc!i.-il 
tr. an inte{;er. li iv.' ib Luhj lSm-i .:>.'r'j, Liu 
'li.igniist U I1.I,F:(;AI. KPMiS irgiisiii'iit i ■• rcMurufil. 

In fLjjurf j-Ji'i, r he KPADS lir.u ; i<i!i pad': rtlrinf, \^ 
-oLth one bl.ini' ]■> nrdi'r lu fi'iiiT.iti .i ^-i-har.ii-ter 
strl;iit. lln.' p'liilniit 1 rin 1 Ik mt.-uI PRIST ".tati.- 
nii-M( li,-i'. ,-1 .p.ic-i n>lui'>i< AHCii ■i:id I''F. 



RPTS FUNCTION 

Tlu' SPr:j LuncLLon cene-r-it-i^ a •itrin.-> CLins..itini! iit 

fUVL'tdl rc'put lL i'lns ot Llit; jr^iuai r.'. btr^r^. Tml 

I'lim.iL t'-<r Ihc Kl'l'ii !UUi!.:o:i oppciib I'n I ljjiiii' .^-.Ij. 



RPADS(sa,ne) 

se A string constant, variable, or expression that 

represents the string to be padded with space 
chaidctpis. 

lie A iiuinerii: coiistanl, vaiidble, or expression 

that indicates the desired length of the resulting 
string; ne must be grcdtei than or equdl to zero. 



Figure 5-23. RPADS Function Format 



100 LET A$="D" 

110 PRINT "ABC";A$;"EF" 

120 PRINT "ABC";RPA0$(A$,2);"EF" 

130 END 



produces: 



ABCOEF 
ABCDAEF 



Figure 5-24. RPADS Function Example 



RPT$(se,nel 



Indicates :i string constant, variable, or expression 
rf>pruseiiting Ihp string ihnt is to be repeatprl. 

Indicates a nunieiic constant, variiiblri, or 
expression specifylny the niimber of tiniiib string 
se is to be lepeated. 



Figure 5-25. RPTS Function Format 



10 PRINT "POS FUNCTION PROGRAM" 

20 PRINT 

30 LET A$="OUTSTANDING" 

40 LET A=P0S(A$,"AN",2) 

50 PRINT "THE POSITION OF 'AN' STARTING WITH CHARACTER POSITION 2 IS ";A 

60 PRINT POS(AS,"ST") 

70 PRINT P0S(A$,"AN",15) 

80 PRINT POS(A$,"T") 

90 END 



produces: 



POS FUNCTION PROGRAM 

THE POSITION OF 'AN' STARTING WITH CHARACTER POSITION 2 IS 6 
4 

3 



Figure 5-22. POS Function Example 
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If the repetition argument ne is greater than zpro, 
the function returns a string consisting of ne 
occurrences of the characters In string ae. If ne 
is zero, a null string Is returned. If ne is Less 
than zero, the diagnostic ILLEGAL RPTS ARGDMENT is 
returned. The argument ne Is evaluated and rounded 
to an integer. Figure 5-26 shows three examples of 
the RFT$ function. 



RTRM$ FUNCTION 

The RTRMS function trims the original string of all 
trailing space characters (spaces on the right). 
Figure 5-27 illustrates the format for the RTRM$ 
function. 

In figure 5-28, the RTRM$ function trims the two 
trailing space characters of string A$. The print- 
out froB the second PRINT statement has no spaces 
between the 345 and the ABC. 



STR$ FUNCTION 

The STR$ function converts a numeric value to 
a string representation. The format for this 
function appears in figure 5-29. 

In format 1 of the STR$ function, the resultant 
string is formatted according to the image speci- 
fied by se. The image se can contain alphanumeric 
constants and any specification control cFiaracters 
that are allowed in the image statement. (See I/O 
Statements and Functions, section 7, for a complete 
discussion of format Images.) If se Is absent, an 
shown in format 2 of figure 5-29, the string is 
formatted according to the standard rules Tor 
numeric output except no preceding or trailing 
blanks are included. (See I/O Statements and 
Functions, section 7, for a complete discussion of 
standard rules for numeric output.) Figure 5-30 
illustrates two examples of Llie STR$ function. 



UPRC$ FUNCTION 

The UPRC$ function returns the original string with 
all its lowercase letters replaced by the uppercase 
equivalents. The UPRC$ function is only useful In 
ASCII mode. In normal node, the UPRC$ function re- 
turns the original string in Its sane form because 
there are no lowercase letters In the normal char- 
acter set. The format for the OPRC$ function is 
shown in figure 5-31. Figure 5-32 illustrates an 
example of this function (all of the letters change 
except D). 



RTRMS(!.e) 



Indicates a strini] consldiil, vciri<ibl(>, or 
uxpruiiSiun. ruiireuints thp sttinn willi 
sprices to lio trimmml. 



Figure 5-27. RTRMS Function Format 



10 LET A$="1A345AA" 
20 PRINT A$;"ABC" 
30 PRINT RTRM$(A$);"ABC" 
40 END 



produces: 



1A345MABC 
1A345ABC 



Figure 5-28. RTRN$ Function Example 



1. 


STRSlHH.bri) 




or 


2 


STRSliie) 




lie InriicatRs numeric cunstdnt, viiiiablc, or 
exprc^^ion. 




se Inriicdtns slriiiy expression (irnayu 
^puciliciilion). 




Figu'-s 5-29. STRS Function Format 



VAL FUNCTION 

The VAL function converts a string containing 
numbers to a numeric value. The VAL function is 
the inverse of the STR5 function. The format of 
the VAL function Is indicated in figure 5-33. The 
string must be wrlttem in the form of a numeric 
constant. Examples of this function are Illustrated 
in figure 5-34. 

ERROR AND INTERRUPT 
PROCESSING 

Table 5-4 summarizes the functions used in error 
and interrupt processing. Further details on these 
functions are in section 4. 



10 LET A$ = RPT$("»",132) 

20 IF B$ = RPT$('A",80) THEN 90 

05 LET C$ = RPT$("ABC",2) 



A$ is assigned the string consisting of 132 asterisks (*). 

Control is transferred to statement 90 if B$ consists 
of 80 blanks. 

C$ is assigned the string ABCABC. 



Figure 5-26. RPTS Function Examples 
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TABLE 5-4. ERROR AND INTERRUPT PROCESSING FUNCTIONS 



Function 



Description 



ASL(x) 

ESL{x) 

ESM{x) 
NXL(ne) 



Returns the statement line number of the statement executing or about to 
be executed when the most recent terminal interrupt occurred. 

Returns the statement line number of the statement that caused the most 
recent execution error. 

Returns the error number of the most recent execution error. 

Returns the next line number of the statement that follows the line num- 
ber specified in the argument of this function. 



10LETB$ = STR$(A(1,6)) 



Assuming A(1,6) = 1234, execution of this statement 
assigns the string 1234 to B$. 



20 LET A$ = STR$(I,"PRICE = $###.##") Assuming I = 203.23476, execution of this statement 

assigns the string PRICE = $203.23 to A$. 



Figure 5-30. STR$ Function Example 



UPRC$(se) 
se 






«iant, van 
the btnny 
letters. 


able 
to 






con 
nt!i 
use 


or expnission; 
be converted to 


String 

represe 

upperc 







Figure 5-31. UPRCS Function Format 



MATRIX FUNCTIONS 



Table 5-5 outlines the functions used to simplify 
the use of matrices. For more details regarding 
these matrix functions, seu the section on Matrix 
Operations. 



10 LET A$=UPRC$C'Oepartment 4") 
20 PRINT A$ 
30 END 



produces: 



DEPARTMENT 4 



Figure 5-32. UPRCS Function Example 



I/O FUNCTIONS 



VAL(se) 
se 




Indicates a string 
expression. 


con&tiint, variable. 


or 




F- 


gure 


5-33. VAL 


Function 


Format 





Table 5-6 briefly describes the functions used in 
I/O operations. Further details of these functions 
are described in the section I/O Statements and 
Functions. 



USER-DEFINED FUNCTIONS 

BASIC, in addition to providing built-in functions 
of the language, also permits you to define your own 
functions. User-defined functions can be written 
either as single- or multiple-line functions. When 
these functions are referenced, they return a value 
based upon the parameters passed by the function 
reference and the function definition. User-defined 
functions are referenced the same as built-in 
functions. See Referencing a Function. 



110LETB9 = VAL(B$(1)) 

100 LET X4 = 2*C4 + VAL("123.7") 

090 LET IF VAL(D$(I,J))<24THEIM 291 



Assuming that B$(1) contains a string 1234, then the numeric value 
1234 is assigned to B9. 

Similarly for these two examples, numeric values are extracted and used 
for arithmetic purposes or for comparison with a numeric constant. 



Figure 5-34. VAL Function Examples 
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TABLE 5-5. MATRIX FUNCTIONS 



Function 



Description 



IDN 
or) IDN(nei) 
or) IDN(nei,ne2) 



CON 
(or) CON(ne) 
(or) C0N{ne),ne2) 

TRN(m) 

ZER 
(or) ZER(ne) 
(or) ZER(nei,ne2) 

INV(m) 



Returns an identity matrix (ones along the diagonal; zeros 
in the remaining areas). The result is a square matrix 
with n X n elements where n = ne] = neg or n = dimension 
of array IDN if no ne is specified. 

Returns a matrix of all ones with dimensions of ne^ x ne2, 
ne x ne, or the dimension of the array to which CON is 
ass igned. 

Returns the transpose of matrix m. 

Returns a matrix of all zeros with dimensions ne; x neg. 
ne X ne, or the dimensions of an array to which ZER is 
assigned. 

Returns the inverse of matrix m. 



TABLE 5-6. I/O FUNCTIONS 



Function 



I nr I no \ 



LOF(ne) 
TAB(ne) 



Description 



i\ci.urris Liic current word position in 
the random file ne. 

Returns the length in words of the 
random binary file ne. 

Returns a string of blanks, which 
results in moving the print mecha- 
nism to print position ne. TAB can 
only be used with the PRINT state- 
ment. 



The DEF and FNEND statements are provided to write 
user-defined functions. To write a single-line 
function, only the DEF statement is used. To write 
a multiple-line function, the function definition 
must begin with the DEF statement and end with the 
FNEND statement. Any BASIC statement, except END 
and another DEF statement, can be located between 
the DEF and FNEND statements. Table 5-7 summarizes 
the effect and usage of the DEF and FNEND state- 
ments . 



TABLE 5-7. USER-DEFINED FUNCTIONS 



Statement 


Effect 


Usage 


DEF 


Defines a 
function. 


DEF FNA(X) = A+B+C 


FNEND 


Terminates 
definition of 
a multiple- 
line 
function. 


FNEND 



SINGLE-LINE FUNCTIONS USING DEF 

The DEF statement is used Co write a single-line 
user-defined function. A single-line function is a 
complete definition on one statement line. It can 
be in the form of a numeric function or a string 
function, and it can contain parameters (up to 20 
parameters are allowed). The format for a single- 
line function appears in figure 5-35. 



1. 


DEF FNa=ne 


2. 


DEF FNa (svi,sv2 svjq) = ne 


3. 


DEF FNnS-se 


4. 


DEF FNaS 'Wi,sv2, . . ."'20) - se 




a Any alphabetic character that uniquely 
identifies the function. 




ne Indicates numeric expression. 




se Indicates string expression. 




svi . . . SV20 Indicates simple variable numeric or 
string. 




NOTE 




Formats 1 and 2 are for numeric functions; 
formats 3 and 4 are for string functions. 



Figure 5-35. Single-Line Function Using DEF 

The rules for writing a single-line function using 
DEF are as follows; 

The variables sv are formal parameters. They 
can be used elsewhere in the program without 
affecting the function. Each formal parameter 
must be unique within the function. From to 
20 formal parameters are permitted. 
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The expression defining the function can Include 
variables other than formal parameters. The 
current value of these variables Is used when 
the function is evaluated. 

The definition must be complete on one line. 

A function can include references to built-in 
BASIC functions or other user-defined func- 
tions, but not to the function being defined; 
recursive definitions are not allowed and cause 
an error diagnostic to be issued at compilation 
time. 

Although a user-defined function can be refer- 
enced before it is defined, this is not recom- 
mended. A compile time warning diagnostic is 
Issued when this occurs (WARNING - FUNCTION 
REFERENCE BEFORE DEFINITION). See the Future 
System Migration Guidelines, appendix E. 

Although a function can be redefined within a 
program, it is not recommended; a compile time 
warning diagnostic is issued when this occurs 
(WARNING - FUNCTION REDEFINITION). If a func- 
tion is redefined, the definition used is the 
one on the highest line number before the line 



containing the function reference; for a func- 
tion referenced at a line number before any 
definitions, the definition used is the one 
with the lowest line number after the function 
reference. See the Future Systems Migration 
Guidelines, appendix E. 



Figure 5-36 shows three examples using the DEF 
statement to express a single-line function. In 
example 1 of figure 5-36, line number 10 contains 
the function definition, and line number 20 contains 
the function reference. 

In example 2 of figure 5-36, FNA computes the area 
of a circle when given its radius, FNC computes the 
circumference of a circle when given its diameter, 
and FNV computes the volume of a sphere when given 
its radius. Note that the definition FNV uses the 
function FNA. At line 40, four column headings are 
printed. The FOR loop prints, on successive lines, 
a radius and the corresponding circumference, area, 
and volume computed by the user-defined functions. 

In example 3 of figure 5-36, a DEF statement with 
no formal parameters is used to define the area of 
a circle having a radius of .2. 



10 DEF FNA(n,N,0,P)=H+N+0+P 
20 LET E=FNA (2,3,4^5) 
30 PRINT E 
40 END 






produces: 








14 








10 DEF FNA(R)=3.14159*R**2 

20 DEF FNC(D)=3.14159*D 

30 DEF FNV(R)=4*FNA(R)*R/3 

40 PRINT "RADIUS","CIRCUMFERENCE"," AREA"," 

50 FOR R=.1 TO 1 STEP .3 

60 PRINT R,FNC(2*R),FNA(R),FNV(R) 

70 NEXT R 

80 END 


VOLUME" 


produces: 








RADIUS 
.1 
.4 
.7 
1 


CIRCUMFERENCE 
.628318 
2.51327 
4.39823 
6.28318 


AREA 
3.14159E-2 
.502654 
1.53938 
3.14159 


VOLUME 
4.18879E-3 
.268082 
1 .43675 
4.18879 


10 DEF FNP=3.14159 
20 DEF FNA(R)=FNP*R**2 
30 PRINT "AREA=";FNA(.2> 
40 END 






produces: 








AREA=.125664 









Figure 5-36. Single-Line Function Examples Using DEF 
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MULTIPLE-LINE FUNCTIONS USING 
DEF...FNEND 

Mill r Ipio-ilni! Ti.'icLi'iiis .ii-f dffl-ii'ii I'miugli iiso il 
tlh' DKh Hill i'N'ENU lUli-mt'iiLri. TIik i'liiu-L .'ml >li>i,rii- 
r.iiin m-isi N'R.'-i « 1 1 h I'n- liKF stdLiTneir .-in.l i-iul i»:t!i 
rill- l'\K,S!i -jI iLfJitiii. Ally BASTf sLi'cnu-iiL, i>Xi.i'pi. 
fi-r >ii'. I II.'! [ji.l , 1.111 .ipi'L-jr Dr-ibi>H.i f\-e DH' ori.l 
1".S;^NL» ■sr.if^rm-i I s. A :iii1 ! Ipli-- 1 Iin iijii- L'. o'l .in In- 
III I 111- lorn i'. .1 iiiiin>-i .'r ur ■.trir./i I 'i.il L.i'>-i, "iiii! If 
iMii c(>ii1..iiri p ii.iiiii'! i.'r . >m i\;:ii".ni •■•• JO ^.ivimi-ir-i •. 
.iri .1 ' I jw. J < , Tin- ri.riB.il r .1 nil iip.L— .mh 
fiiiii-l f'lii .ippLjr.. .11 "-icnf "1-17. 



1. 


DEF FNa 
LET FNa-iio 

FNEND 




2. 


UEF FNa 'sv^.^vj. . . 
LET FN.i-np 

FNEND 


■ .*V20) 


3. 


DEF FNaS 
LET FNdS-w 

FNEND 




4. 


DEF FNaS (sv-i.Wg. ■ 


. . ,sv2o) 



LET FN.i<i=bP 



FNEND 



.1 Indiudlns diiy .ilphahptu: iiliuijctiir tli.it iiniqiinlv 
iclpntifipt the fiiiir-tinn. 

lie Inilicites iiumKiir: expressiion. 

SR liuliciitcis Mriii() ei(|ir(!«»ion. 

sv liuliRntiJb simple, iiuniKiir, ni btriiiq V'-iricihl<>. 



NOTE 

Formats 1 ciiid 2 aic for riunieiiu fiirictinns; 
foimnts 3 and 4 ciiu foi string tiinctioiiii. 



Figure 5-37. MuLtipLe-Line Function 
Format Uith DEF. ..FNEND 



The rules for wrltiag a mulcXplc-iine functionj 
using the DEF... FNEND statements are as follows: ( 

The variables (sv) are formal parameters. Theys 
can be used elsewhere; In the program without ; 
affecting the funcC.ion. Variables used as for-: 
mal parameters arc local Co the function; for: 
example, changing the values within the func- ^ 
tion has no effect on variables of the same 
name outside the function. 

When a function is referenced (described 
earlier in this section under Referencing a 
Function), parameter expressions are evaluated 
and their values are passed to the function. 
Therefore, changing the value of a formal 
parameter within a function only effects the 
local value of the parameter, not the value of 
Hie parameter expression or variable used in 
the expression outside the function. 

The expression or expressions within the 
function definition can include other program 
variables in addition to the formal parameters; 
these are global variables and have the same 
value.s inside and outside the function. 

Global variables can have their value changed 
by operations within the function definition. 
Unexpected results can occur if a global value 
that has been changed in a function is used Ln 
an expression containing the function reference. 

A function can include reference.^ to built-in 
or other user-defined functions, but not to 
itself; recursive function definitions are not 
permitted. 

IL is Illegal to reference a line number outside 
a function definition from within the defini- 
tion, or to reference a line number in a func- 
tion definition from outside the definition. 
An attempt to do so causes the compile time 
diagnostic TRANSFER OUT OF DEF or TRANSFER INTO 
nr,F to be issued. 

The function name must be assigned a value it 
the function is to return other than a or 
nul 1 . 

A function definition can appear after a func- 
tion reference; however, it is not recommended. 
The warning diagnostic WARNING - FUNCTION' 
REFERENCE BEFORE DEFINITION is Issued. See 
Future Systems Migration Guidelines, appendix E. 

A function can be redefined within a program; 
however, this is not a recommended programming 
practice. The diagnostic warning WARNING - 
FUNCTION REDEFINITION is issued. If a function 
is redefined, the definition used is the one on 
the highest line number before the line con- 
taining the function reference; or for a func- 
tion referenced at a line number before any 
definitions, the definition used is the one 
with the lowest line number after the func- 
tion reference. See Future Systems Migration 
Guidelines, appendix E. 
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Statenents located between t)ie DEF and FNEMD 
statements can be any BASIC statement except 
END and another DE? statement. 

The function name can be used as a local 
variable within a function definition (on the 
right side of the statement). However, such 
usage Is not recommended because it ml ght nf)t 
be supported in a future version of BASIC. See 
Future System Migration Guidelines, appendix E. 

Figure 5-38 shows two examples of writing and 
referencing multiple-line functions. The first 
example illustrates a string function; the second 
example Illustrates a ntmeric function. 



In example 1 of figure S-38. the function FNR$ 
replaces J characters of A$, starting with charac- 
ter 1, with the first J characters of B$. B$ is 
blank padded to J , if necessary. 



In example 2 of figure 3-38, the function FNM uses 
its formal parameter N as a local variable. Chang- 
ing Its value in the function (line numbers 170 and 
200) has no effect on the actual parameter M passed 
to the function at line number 220. Note also that 
the actual parameter need not be used in 
calculating the function result. The result in 
this example is calculated from global variables 
B(0),...,B(4). 



100 DEF FNR$(A$,I,J,B$) 

120 REM REPLACE J CHARACTERS OF A$ BEGINNING AT CHARACTER I 

130 REN WITH THE FIRST J CHARACTERS OF 8$ 

140 REM B$ IS PADDED TO LENGTH J IF NECESSARY 

150 IF J<LEN(B$) THEN LET B$=RPAD$(B$,J) 

160 LET A$(I:I+J-1)=B$<1:J) 

170 LET FNR$=A$ 

180 FNEND 

190 LET X$="ABCDEFGH" 

200 LET Y$="12345" 

210 PRINT FNR$(X$,3,4,Y$) 

220 END 



produces: 
AB1234GH 



100 DIM 8(5) 

110 PRINT "TYPE IN ANY 5 NUMBERS" 

120 INPUT B(0),B(1),B(2),B(3},B(4) 

130 LET M = 17 

140 REM FUNCTION DEFINITION 

150 DEF FNN(N) 

160 LET FNM=B(0} 

170 FOR N=1 TO 5 

180 IF FNM>=B(N} THEN 200 

190 LET FNM=B(N) 

200 NEXT N 

210 FNEND 

220 LET Y=FNI1 (M) 

230 PRINT "THE VALUE OF M IS UNCHANGED BY THE FUNCTION" 

240 PRINT "IT IS STILL ";H 

250 PRINT "MAXIM IS ";Y 

260 END 



produces: 



TYPE IN ANY 5 NUMBERS 

? 89,78,45,67,9 

THE VALUE OF N IS UNCHANGED BY THE FUNCTION 

IT IS STILL 17 

MAXIM IS 89 



Figure 5-38. Multiple-Line Function Examples Using DEF.. .FNEND 
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SUBROUTINES, SUBPROGRAMS, AND CHAINING 



This section describes the statements used to write 
BASIC subroutines, link to external subprograms, 
and chain to other programs. Table 6-1 outlines 
the subroutine, subprogram, and chaining state- 
ments. Further details for these functions and 
statements follow the table. 



execution of subroutine A, control is transferred 
to line 70, and at line 80 execution is directed to 
line 230 (the end of the program) bypassing the 
subroutine statements. 



BASIC SUBROUTINES 

when a particular part of a program must be 
performed more than once, it is useful to use a 
subroutine. Control can be transferred to a sub- 
routine from the main program and, at the conclu- 
sion of the subroutine, be returned to the main 
program. 

Within the main BASIC program, control can be 
transferred to BASIC subroutines. These subrou- 
tines are compiled along with the main program. 
The following paragraphs describe the method of 
calling subroutines using the GOSUB or .^UfviiOS^" 
statements. The RETURN statement directs execution 
to the most recently executed GOSUB or cM''^0tfM. 
The following rules must be followed when using 
these statements: 

Any number and type of BASIC statements are 
allowed in a BASIC subroutine. 

GOSUB statements can be nested to a depth of 40. 

Recursion is allowed; a subroutine can contain 
a call to itself. 

Figure 6-1 Illustrates a subroutine call and return 
sequence. Lines 150 through 220 contain subroutine 
A. The subroutine is called from line 60. After 



GOSUB STATEMENT 

The simple GOSUB statement unconditionally transfers 
control to a line number that is the first state- 
ment of the subroutine. Figure 6-2 shows the 
format of the GOSUB statement. 



GOSUB In 




In 


Indicates the line number of the first 
statement of the subroutine. 



Figure 6-2. GOSUB Statement Format 



Execution of the GOSUB statement and the RETURN 
statement (described later) can be described in 
tenns of a stack of line numbers. The stack is 
empty prior to execution of the first GOSUB state- 
ment. Each time a GOSUB statement is executed, the 
line number referred to In the GOSUB statement is 
placed on top of the stack and execution of the 
program continues at this line number, which is the 
first statement of a subroutine. Each time a RETURN 
statement is executed, the line number on top of 
the stack is removed from the stack and execution 
of the program is continued at the line following 
the line number presently at the top of the stack. 



10 REM USER PROGRAM TRANSFERS CONTROL TO SUBROUTINE A 

20 . 

30 . 

40 

50 

60 GOSOB 150 ■ 1 

r70 LET Z=A**2 I 

SO GOTO 230 I 

I 90 . 

I •] 00 . I Transfer control to subroutine 

I 120 ." I 

' 140 REN SUBROUTINE A I 

I 150 LET A=1+X 

I 160 

I 170 

I 180 

I 190 



200 



I 210 . 

' 220 RETURN 



Subroutine A 



230 END 



Figure 6-1. BASIC Subroutine and RETURN Statement 
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TABLE 6-1. SUBROUTINE, SUBPROGRAM, AND CHAINING STATEMENTS 



Statement 


Effect 


Usage 


GOSUB 


Transfers control to a BASIC sub- 
routine. 


GOSUB 150 




ON GOSUB 


Conditionally transfers control to a 
subroutine depending upon the integer 
value specified in the ON GOSUB line. 


ON X-Y GOSUB ZO 


30 


RETURN 


Upon completion of the subroutine, 
returns control to the statement im- 
mediately following GOSUB or ON GOSUB. 


RETURN 




CALL 


Permits execution to a separately com- 
piled subprogram in non-BASIC lan- 
guage. 


CALL SUB2 




CHAIN se 
CHAIN #ne 

- 


Permits control to exit from a BASIC 
program by terminating the current 
program and initiating execution of 
another program. 


CHAIN "CHESS" 





A GOSUB (or dt.jgwPB) statement can be used within 
one subroutine to transfer control to another sub- 
routine; these are nested subroutines. The GOSUB 
statement can be used 40 times in these nested sub- 
routines. Each subroutine in nested subroutines is 
executed by the stack order, explained under the 
GOSUB statement. A GOSUB can be ended without a 
RETURN. For example, execution can be stopped 
inside a subroutine. An example of nested subrou- 
tines is shown in figure 6-3. 



80 GOSUB 150- -| 

I ^° I 

I ■ I 

150 ■^— ' 



a 



L 



160 GOSUB 250 
170 



200 RETURN 
250 



liJ 



.300 RETURN 



Figure 6-3. Nested Subroutines. 



ON GOSUB STATEMENT 

The ON GOSUB zitaL'>mpnt ccmdl "innjj i> trans^prn 
i-iiiitroJ tu cnt- •>:' II ptmbibli! subrou* LnL'b. rhv 
fiirmjt ul the ON COSL'B sr.itincrt ib shuvn in 
fiRurp fi-4. 



ON 


nc! 


GOSUB In^Jng. In,, 




ne 




hidiriitKii aiithniftii Cx|ir>ission v/hii:h n 
evalu.itPil to dulurtnini! point ol tLinster. 


Ini. 


11 


Indii.itcs lint! numliutb 





Figure 6-4. ON GOSUB Statement Format 

In figure 6-4, the expression ne Is evaluated and 
rounded to an integer value; control transfers to 
Inj when ne is 1, to ln2 when ne in 2, and so 
on. The I Lne number of the ON COSUB uLatement is 
recorded on the GOSUB stack (see GOSUB STATEME.MT; 
so that RETURN statement can subsequently return 
control to the statement following the ON GOSUB 
statement. If the value of the expression ne Is 
negative or zero, or greater than Che number uf 
specified line numbers in the ON GOSUB statement, 
program execution terminates, displaying the 
diagnostic ON EXPRESSION OUT OF RANGE. 

Figure 6-3 illustrates the ON GOSUB statement. In 
the example, when the uxpr<;ssion X-Y equals 1 or 3, 
control transfers to line 200. Wlien X-Y equals 2, 
control transfers to line 250, and when X-Y equals 
4, control transfers to line 300. 



RETURN STATEMENT 

The RETURN statement is usually the last statement 
of a BASIC subroutine; however, it can be used 
anywhere and any number of times within the subrou- 
tine; RETURN directs the program to resume execu- 
tion at the statement immediately following the 
most recently executed GOSUB or ON GOSUB state- 
ment. Figure 6-6 shows the format of the RETURN 
statement. 
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r- 



90 ON X-Y GOSUB 200, 250, 200, 300 
100 



r 200 



'-^J- 240 RETURN 
250 



290 RETURN 
300 



1 
I 
I 

1 



— H 



Integer value of 1 or 3 



Integer value of 2 



Li 



340 RETURN -• 



I 
I 



Integer value of 4 



Figure 6-5. ON GOSUB Statement Example 



RETURN 



Figure 6-6. RETURN Statement Format 

Each time a RETURN statement Is executed, a line 
number Is removed from the top of the GOSUB stack, 
and control Is transferred to the next line follow- 
ing that line number. See GOSUB statement for a 
description of GOSUB stack. The diagnostic RETURN 
BEFORE GOSUB is issued if there is no return line 
number on the GOSUB stack (if there is no remaining 
GOSUB or ON GOSUB from which to return). For exam- 
ples of the RETURN statement, see the GOSUB and ON 
GOSUB statements in this section. 



EXTERNAL SUBPROGRAMS 

Transfer of control Lo an external subprogram is 
accomplished through use of the CALL stntumenU. 
The following describes the CALL statement format 
and programming ideas for preparing external 
subprograms for use with a BASIC program. 



CAU STATEMENT 

The CWA, statement permits you to execute a sepa- 
rately compiled subprogram in a non-BASIC language, 
such as FORTRAN. When the CALL statement is exe- 
cuted, parameters are evaluated and passed to the 
subprogram, then the subprogram is executed. Wlien 
the subprogram finishes, control returns to the 
main program at the statement immediately following 
the CALL statement. Values are returned as new 
values of the parameters that are changed by the 
subprogram. The format of the CALL statement 
appears in figure h-7. 



1. 


CALL s>utinni 


2. 


CALL subnni ^e■^M2, ■ .e2o' 




subnm Indiufltes subprogram name 




G Indicator any numuiii: or islrini] 




expression 



Figure 6-7. CALL Statement Format 

As shown in figure 6-7, the CALL statement can con- 
tain parameters (up to 20 parameters are allowed). 
If parameters are specified with the CALL state- 
ment, the parameter values are passed to the sub- 
program in the order that tho parameters are listed 
in the CALL statement. The following is an example 
of two CALL statements, one with parameters and the 
other without parameters: 

CALL SUBTEST(A,B,C,D) 
CALL A1234S 

Thi" following rules apply to the CALL statement: 

The subprogram n.imu, subnm, can be I to 7 char- 
acters. The first character must be alphabetic; 
any alphabetic characters used must be upper- 
case. The last character must not be a colon. 
Characters +, -, *, / , comma, circumflex, and 
blank cannot be used. 

Ko more than 20 parameters can be passed to the 
Kubprugram. 

The CALL statement can be executed only if the 
B option (relocatable binary code) is used when 
compiling the BASIC program. See the BASIC 
Control Statement, section 12. If an attempt 
is made to execute a CALL In cnmpi U>-tn-memory 
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mode (no B option), the diagnostic UNSATISFIED 
eXTKRNAL SKFUHmCe. is issued. The compiled 
program must be loaded, along with the sub- 
program that has been called, before the pro- 
gram can be executed. See the CYBER Loader 
reference manual. 

The CALL staLemunL caiuiut appear In a BASIC 
source program that is the target of a CIIATN 
statement. See description of CHAIN statement 
In this section for more Information. 



The CALL statement, without parameters, cannot 
be the object of THEN in the IK.. .THEN... ELSE 
statement. 



Ttie CALL statement can be used to call subpro- 
grams written in any language that conforms to 
the FORTRAN calling sequence conventions. Fur 
an example of using the CALL statement Lo call 
a FORTRAN subprogram, see figure 6-8. 



BASIC Program on File F681 : 



100 OPTION BASE 1 

110 DIM A(2,3) 

120 FOR 1=1 TO 2 

130 FOR J=1 TO 3 

140 ACI,J)=I*J 

150 NEXT J 

160 NEXT I 

165 PRINT "THESE ARE THE BASIC ELEMENTS" 

170 FOR 1=1 TO 2 

185 PRINT A(I,1),A(I,2>,A(I,3) 

186 NEXT I 

190 CALL FSUB (A(1,1))-* 



BASE 1 NEEDED SO BASE IS SAME AS FORTRAN SUBPROGRAM 



191 PRINT "THESE ARE THE BASIC ELEMENTS CHANGED WITH THE FORTRAN SUBPROGRAM" 

192 FOR 1=1 TO 2 

194 PRINT A(I,1),ACI,2>,A(I,3) 

195 NEXT I 
210 STOP 
220 END 

FORTRAN Subprogram on File F682: 



Call to FORTRAN subprogram. 



C SUBROUTINE FSUB >«- 



C NOTE THAT ORDER OF SUBSCRIPTS MUST BE REVERSED FROM BASIC 
SUBROUTINE FSUBCA) 
DIMENSION A(3,2) 
DO 200 1=1,3 

DO 100 J=1,2 

A{I,J)=A(I,J)+10 

CONTINUE 
CONTINUE 
RETURN 
END 



FORTRAN subprogram. 



100 
200 



Control Statements: 

/x,basic(i=f681,l=0,b=f68b)-« 

.011 CP SECONDS COMPILATION TIME 
/ftn5Ci=f682,l=0,b=f68b) -*- 



0.009 CP SECONDS COMPILATION TINE 
/f68b-« : 



Output: 

THESE ARE THE BASIC ELEMENTS 

12 3 

2 4 6 

THESE ARE THE BASIC ELEMENTS CHANGED WITH THE FORTRAN SUBPROGRAM 

11 12 13 

12 14 16 



Compile BASIC program. 

Compile FORTRAN subprogram. 

Execute BASIC main program 
and FORTRAN subprogram. 



Figure 6-8. BASIC Program Call to FORTRAN Subprogram 
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WRITING EXTERNAL SUBPROGRAMS 

The fdllowing rules apply when writing external; 
subprograms ; 



All numbers processed by BASIC are stored ,\a \ 
normalized, singlu-precision, floating-point I 
values. Therefore, all niimurii- values passed: 
to external routines are in normalized, single- 
precision, fLoa ting-point form (FORTRAN typo 
REAL J , and all numeric vuluus returned by 
oxLeriial routines must be stored in the same 
furm* 

All strings processed by BASIC art' stored as 
6-bit display code or 6- and 12-bit escape code 
characters packed Into words with the first 
character being the leftmost character in the 
first word ot the string. Thu 6-blL display 
codes are used whtin BASIC is executing in nor- 
miil mode; the 6- and i2-bit escape codes are 
used when BASIC is executing in ASCII mode. 
The string is always passed In the 6/12 charac- 
ter set on both NOS and NOS/BE. Strings passed 
to external programs are ?.ero-byte delimited; 
the last word of the string contains zeros in 
the last 12 bits and in all other character 
positions not cjntjLnlng valid characters. The 
length In 6-bit characters is indicated in the 
p.-irametor block. The length in characti-rs can 
be obtained by scanning the string looking for 
the zero-byte delimiter or by passing the length 
as determined by BASIC'S LEK fnnction. (The 
LKN function returns the count of Logical, not 
physical, characters). In ASCII mode, two 6-bit 
characters sometimes constitute one logical 
escape code character. 

External routi:ies can change characters in a 
string, but they must not change tlit Length of 
the string. BASIC maintains its own length 
Indicator; lliecerore, externuliy shortening a 
string by moving the zoro-byte delimiter is not 
noticed, but external Ly lunj^thening a string 
destroys .idjacent data, just as storing a 
double-precision value over a single-precision 
value destroys adjacent ilata. To change the 
length of a string, pass an indicator back to 
BASIC and let BASIC change the length with a 
string assignment statement. 

External subprograms should not perform input 
or output operations on filps used by BASIC. 

Avoid the u-si' of subprogram names that art; 
identical to entry points in any of the BASIC 
execution on-time routines; the use of such 
names can v-anse unpredictable results and 
program termination. 

Ko provision is made for passing an entire 
array to an c-xternal subprogram. However, if 
the first cltimeiit of a miraerJc array, such as 
A(0,0), is passed, its address can he inter- 
preted as the address of the array because all 
elements ot a numeric array are stored con- 
tiguously. This technique does not apply f.ir 
string arrays because string array elements are 
not stored contiguously. 



'rflien passing BASIC numeric arrays to FORTRAN, 
provision must be made for the fact that BASIC 
normally begins array subscripting with ele- 
ment zero (0; and stores elements of multi- 
dimensional arrays in row order (A(0,0), A.{.0,i), 
A(0,2), and so forth), while FORTRAN begins 
array subscripting with element 1 and stores 
elements of multi -dimensional arrays in column 
order (A(l,l), A(2,l), A(3,l), and so forth). 
Tnls difference causes a 2-dimeiisional array 
to appear to be transposed when it is passed 
between FORTRAN and BASIC. Note that in BASIC, 
OPTION BASE can be used to set the array sub- 
script origin to i rather than 0. 



PROGRAM CHAINING 

The. CHAIN statement al Lows control to exit from a 
BASIC program by terminating the current program 
and initiating execution of another BASIC program. 



CHAIN STATEMENT 

The CHAIN statement Ic-rminates the current program 
and initiates execution of another progriim. The 
new program can be either a BASIC program in source 
form or a BASIC or non-BASTC program in precompi '.ed 
binary forn. Ln either case, it is retrieved from 
aithfr a local or a permanent TLle. Figure 6-9 
illiiiitratos the formats for the CHAIN statement. 



1. 


CHAIN 


se 




2. 


CHAIN 


#ne 






se 




Indicates string expression; the name 
of the chained-to file; optionally 
includes permanent file and mode 
(ASCII/normal) information. 




ne 




Numeric expression; file ordinal of 
the chained-to file. 











Figure 6-9. CHAIN Statement Format 

When the file ordJ.iaL format is used, nii options 
c.in be specified. Chaining is done to the local 
file specified by the file ordinal, and, if the 
file contains a BASIC source program, tin-, compiler 
is invoked with the same mode (.ASCII or :iormal) as 
the chaining program. If the file is binary, tlie 
mode is determim-il by the binary program itself. A 
file ordinal expressed as a numeric expression is 
evalu.ited and rounded to an integer v.3lue. 



When the siring expression format is used, a 

filename must be spucified and, optionally, a 

permaiienl file user number and/or password must be 

speciiied. Also, a mode indicator (.ASCII or 
nor.Tial ) can be specified. The optional values can 

he specified posLtionally or with keywords, as 
shown Ln figure 6-10. 
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file,usar 


.pswd.mode 


file,UN= 


°user,PW=pswd,MODE=tnode 


file,ID= 


user,PW=pswd,MO D E=niode 


file 


Required file name, 1-7 characters 
beginning with a letter. 


user 


Indicates optional user number (ID) for 
permanent file access, 1-7 characters. 


pswd 


Indicates optional password for permanent 
file access, 1-7 characters. 


mode 


Optional mode, must be ASCII or NORMAL 
or leftmost substrings of these such as 
A,AS,ASC. 



Figure 6-10. Keywords for Optional Values 

Lettcra usod in file niimes and optional valuiis raiist 
be uppurr.nse. Whp.n keywords are used, they can be 
specified in any order. Missing positional param- 
eters must be indicated by commas. For example: 

F1T,EX,,,M0DE 

Keyword and poKltional parameters can he mixed, but 
any keywords must follow ail positional values. 
For example: 

FILEX.USERl ,MODE=KORM 



The new file is examined to determine If It contains 
source or binary data and the BASIC compiler or the 
CTfBER Loader is called as appropriate. The file Is 
rewound before and after this check. Both the com- 
piler and the loader destroy the current program so 
that no return is possible. 



Restrictions: 

DATA, or the values ot variables and arrays, 
cannot be passed between programs. All Infor- 
mation must be on files. 

The ch.ilned-to program cannot contain CALL 
statements if the chained-to program Is in 
source form. However, CALL statements are 
pprmitted In precompiled binary programs. 
Vflien the program is in source form, the BASIC 
compiler is called to compile and execute 
the program in one step without u.slng the 
loador; therefore, any called subroutine is 
not available and results in an execution-time 
diagnostic. 

'Ilie c.halned-to file cannot be connected or 
assigned to the terminal. 

Tf the BASIC compiler to be used resides in n 
local file rather than in the system library, 
the filename must be BASIC. 

The CHAIN statement is inhibited when the 
current (chaining) program is executed in CID 
mode (see section 9). In this case, execution: 
of the current program terminates at the line 
number where the CHAIN statement was encoun- 
tered; therefore, no chaining takes place. 



CHAIN PROCESSING 

Exficution of the CHAIN statement proceeds in tho 
following manner: for the .string expression format, 
the string is decoded into parameter"?. The diag- 
nostic ILLEKAL CHAIN PARAMETER i.s issued for such 
errors as an illegal filt- name, a File that is 
already assigned or connected to the terminal, 
and/or an incorrect modi- value, such as ASKl. If 
the mode is not specified, the mode of the current 
chaining program is used. If tht; user number is 
not specified, the current user nunber (n.^cr name) 
is used under NOS, and the ID of PUBLIC is used 
under NOS/BE. For the file ordinal format, no 
parameters need be dt-coded. Tf a local file of the 
specified nami- i-.xista, it is used. Il one does not 
exist, access is attempted under NOS with GET or 
ATTACH (if GET is unsuccessful), and under NOS/BE 
with ATTACH, In both systems, attached files are 
attached with read-only permission. If the named 
file cannot be obtained, the diagnostic CHAIN FILE 
NOT FOUND is issued. 

When the file has been found, all files in the: 
current (chaining) program arc clos'-d as if STOP or; 
END had been executed. The file containing tho 
current program Is returned, unless it is named; 
INPUT or is the file being chaiied to, and the 
cha.im;d-to file is rewound. Mao, for NOS in: 
interactive mode, tho now file is made the primary 
file, if possiblo (if It is nol a direi:t access: 
pcrraanont file). Under NOS/BE and NOS batch mode,: 
the new file is not treated in a special manner. 



Figure 6-11 shows how the CHAIN statement can be 
used in a control program to determine which of a 
given number of computer game programs to execute. 
Each game program exists as a separate file with a 
user number (for NOS) or an ID (for NOS/BE) of 
LIBRARY. The game and the control program can 
CHAIN' back Lo tho control program when it finishes, 
If tho control program is on the flic CONTROL and 
the last executed statement is as follows: 

510 CHAIN "CONTROL, LIBRARY" 



100 PRINT "ENTER NAME OF THE GAME" 

110 INPUT A$ 

120 IF A$="POKER" GOTO 170 

130 IF A$="ROULETTE" GOTO 190 

140 IF A$="STARTREK" GOTO 210 

150 PRINT "I DON'T HAVE THAT GAME. TRY AGAIN" 

160 GOTO 110 

170 PRINT "CALLING POKER" 

180 CHAIN "P0KER,L1BRARY" 

190 PRINT "CALLING ROULETTE" 

200 CHAIN "ROULETT,LIBRARY" 

210 PRINT "CALLING STARTREK" 

220 CHAIN "STARTRK,LIBRARY" 

230 END 



Figure 6-11. CHAIN Processing Example 
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I/O STATEMENTS AND FUNCTIONS 



This section explains file usage In BASIC and 
describes the statements and functions related to 
Input and output. Included are the statements and 
functions to input and print display format; read 
and write binary data; construct and read internal 
data tables; aid random access; manipulate files; 
and produce special output formats. Table 7-1 
summarizes the input and output statements. 



BASIC FILES AND FILE I/O 
STATEMENTS 



Data can be contained within the BASIC program 
internally in a data block or externally In a 
file. A file is a named collection of data that a 
BASIC program can reference and manipulate. A 



Statement 



FILE 

CLOSE 
RESTORE 

NOD ATA 

IF END 
IF MORE 

APPEND 
WRITE 
READ 
SET 

LOC(ne) 
LOF(ne) 
INPUT 

: DELIMn.- 
PRINT 

TAB 

PRINT USING 

Image Format 

MARGIN 

SETDIGITS 

DATA 



TABLE 7-1. I/O STATEMENTS AND FUNCTIONS 



Effect 



Associates a binary or display format file witii a file ordinal. 



Disassociates a binary or display format file from a program. 

Resets data table pointer to the first data value, or restores 
file pointer to the beginning of the file. 

Branches to specified line number on end-of-data l internal uata 
table) or on end-of-file (binary or display format filej. 

Branches to specified line number on end-of-file. 

Branches to specified line number when no end-of-file is 
indicated. 

Positions file so that data can be adaed to the end of the fiie. 

Writes data to a binary file. 

Reads data from a binary file or from an internal data table. 

Points to a specific location within a binury file so that tne 
next READ or WRITE statement can reference the desired word. 

Returns the current word position of binary file ne. 

Returns the length in words of binary file ne. 

Reads data from a display format file or from the terminal during 
program execution. 

Specifies the characters to be used as input item separators. 

Prints data in display format {as specified in the PRINT line) in 
a file or at a terminal . 

Causes the print mechanism to tab to a specified column. 

Prints data in a file or at a terminal as specified in an image 
statement or in a string expression. 

Establishes output format for tne PRINT USING statement. 

Defines the right-hand margin for printed cjtput. 

Specifies the number of significant digits to be output by subse- 
quent PRINT statements. 

Creates a table of data values internal to a program. 



Usage 



FILE *1 = "TXT I" 
*2 = "TXT2" 



CLOSE #1 
RESTORE 



NOUATA IbO 

IF END *2 THEN 50 
IF MORE *Z THEN 100 

APPEND #2 
WRITE #1,A,8,C 
READ A,B,C 
SET #1,NI 

LOCI 2001) 
LOFi200) 
INPUT X,Y 

DELIMIT *l,l;) 
PRINT "VALUE". Y 

TAB(5) 

PRINT USING 80, A 
PRINT 3 USING "SET". A 

:THE TOTAL IS ##.# 

MARGIN 136 

SETDIGITS b 



DATA "A", 1,2, 3 
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logical file name (Ifn) consists of 1 to 7 alpha- 
nvmeric characters. The first character must 
always be a letter. Any letters that are used must 
be uppercase. Files used with BASIC are normally 
located on mass storage; exceptions are those files 
connected or assigned to the terminal. Terminal 
files accept and display data directly at a termi- 
nal. If a BASIC program implicitly or explicitly 
references the name of a nonexistent file, the 
operating system (NOS or NOS/BE) automatically 
creates an empty file by that name. Direct access 
to tape files Is not supported. 

Files named INPUT and OUTPUT have special meaning 
in a BASIC program. In interactive mode, if these 
files are connected or assigned to the terminal, 
data written on file OUTPUT is automatically printed 
at the terminal, and data read from file INPUT must 
be entered at the terminal. These files are always 
connected to the terminal in interactive mode under 
NOS. Sometimes the files INPUT and OUTPUT must be 
explicitly connected to the terminal by using the 
CONNECT command under NOS/BE. (See section 11.) 
In batch mode, data written on file OUTPUT is auto- 
matically printed at the end of the job and data 
read from INPUT must be included in the file that 
contains job control statements. 

BASIC programs can read and write files In two 
formats: binary format (a file created by WRITE) 
and display format (files created by PRINT or an 
external method) . It is more efficient and more 
accurate to manipulate data in binary format be- 
cause no translation is needed before processing, 
but it is sometimes inconvenient to use binary data 
because it cannot be printed at the terminal or 
printer. Conversely, it is less efficient and 
sometimes less accurate to manipulate data in dis- 
play format because translation into binary is nec- 
essary before the data can be used by BASIC, but it 
is usually more convenient to use display format 
data because it can be printed at the terminal or 



printer. Thus, all data entered on cards or at the 
terminal, and all printed data, Is formatted in 
display format. In general, binary data files are 
written only if the data is to be read later by a 
BASIC program and a printed copy is not needed. 

The BASIC statements described in this section are 
used for binary input and output, display Input and 
output, and input and output for internal data 
tables. Some of the statements, such as RESTORE, 
apply to all of these categories; while others, 
such as INPUT and PRINT, apply to only one cate- 
gory. Table 7-2 identifies each I/O statement that 
is applicable to each category. The statements 
listed in this table are grouped according to their 
respective functions. 

FILE ACCESS METHODS 

BASIC offers both a sequential and random access 
method of reading and writing files. Sequential 
access sometimes involves a systematic search 
throughout the file from beginning to end until the 
desired information is found. Random access allows 
Lmmed-iate location of the information (direct 
retrieval). Random access, for example, can be 
used to advantage on a file with students' grades, 
provided the grades are ordered in student number 
order. In this case, the student number indicates 
the relative position of the student's record with- 
in the flic; for example, student number 12645 
would indicate that the student record occupied the 
2fi&3th position in the file (assuming that student 
numbering begins at 10001). If the student number 
associated with the desired record Is known, re- 
trieval of this student's grade can be almost 
instantaneous by using random access techniques. 
Display format files can only be accessed sequen- 
tially; however, both access methods apply to 
binary format files. Table 7-3 summarises the 
differences between these two access methods. 



TABLE 7-2. I/O STATEMENTS AND RELATED TYPE OF I/O 



Type 

of 

Statements 


Display I/O 


Binary I/O 


I/O for 
Internal Data Tables 


Sequential 
Access 


Sequential 
Access 


Random 
Access 


Sequential 
Access 


File Access 
and CLOSE 
statement 


FILE 
CLOSE 


FILE 
CLOSE 


FILE 
CLOSE 




Input 


INPUT 
DELIMIT 


READ 


READ 


READ 


Output 


PRINT 

PRINT USING 
Image 
MARGIN 
SETDI6ITS 


WRITE 


WRITE 


DATA 


File 
Control 


RESTORE 
NO DATA 
IF END 
IF MORE 
APPEND 


RESTORE 
NODATA 
IF END 
IF MORE 
APPEND 


SET 

RESTORE 
NODATA 
IF END 
IF MORE 
APPEND 


RESTORE 
NODATA 
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VABLE 7-3. SEQUENTIAL ACCESS 
VERSUS RANDOM ACCESS 



Sequentia") 
Access MeLhnd 



Can be used with dis- 
play and binary format 
fi les. 

Data must be prucesse'J 
sequentially from he- 
ginning to end oi" 
until the desirsd in- 
formation is found. 

File can be created 
with WRITE or PRINT 
statement, and the 
READ or INPUT stat2- 
ment is used to sys- 
tematically examine 
eacli data iLem unti 1 
the iesired infoi-ma- 
tion is found. 



rile must be e ither in 
READ or WRITE mode, 
and ivhicheve*' 'node is 
jsed, a RESTORE State- 
ment must lie used 
')Cfo'"e the otlief 'TiO'^r 
r.an je u'^ed. 



Random Access Method 



Can be used with binary 
format files only. 

DdLd need not be proc- 
essed sequentially. Fn .e 
can be positioned to any 
word in the file. 



File must I)e creat;! se- 
quentially with the WRITE 
stiteiient »nd *-edii witn 
the READ statement. The 
SET statement and two 
functions, LOC am! LOF, 
supply the data to per- 
mit positioning directly 
to the desired wonl 
locitiin and retrieve or 
wite the word stored nt 
that locition. 

REAJ and in'^^ITE operations 
can bi^ intermixd.l without 
^n Int°rvening RESTORE 
St i Lemon L. 



PERMANENT FILE ACCESS 



BASIC puocesst'S lor.il 
file K-ait he on? of clii" 



(Lomporci'v) iLles. 
'o I lowing: 



' 1)1 .1 1 



A perniHnciiC iiiv made locil wi Mi llie A'l I'ACH 
commnnil 

A file c.re,iteii by the ust-r or by .iii cxecutinj; 
program dm-lng Lbi' job Lermi'Ml ses^iion 

A copy of- a perm-inent file 



An att.ichod permanent file Is n pi-m int-nL L I U' tluit 
h.is b«e:i made directly do.cesstMe Lo thi- BASIC pro- 
gram. If rbcingo!. art' made to an jtl.a>-hL'cl direct 
arcess file, L'lose clianges ,\re pi rmaiu-nt . An in- 
directly arc-essi'ci pcraanent fii-. is i copy oL a 
ponnanent fllf. ir Lhu job or li-rmiiial subsion 
L-ndii before the modiliud copy is saveil , all cliangyj 
made to tin- Eilo during the t.'rmiinl beusion are 
lost. Similirly, if a fil« neali.'d by the user or 
by -in executing BASIC program is not explicitly 
made pprm-inent with operating sysli-m commands 
betore the job or Li-rminaL aes«iion unils, ihu flli> 
is lost. SiTCloiis 10 and 11, and appendix D illus- 
trate operating sybLem commands to make temporary 
local flJeb permanent, .md permanonL files local. 
Refer to the NOS or NOS/BE relerence manual for a 
complete explanation. 



FILE STATEMENT 

Ti-.e FILE statement Is used to associate a number; 
(the file ordinal) with a file name. All file i/oi 
statements require the use of a file ordinal.) 
Figure 7-1 shows the format for the FILE state-i 
mcnt. In figure 7-1, the file named by Ifn is: 
afsaciated with the file ordinal specified by ne. 



FILE #ne-] = LfiT],#ne2=lfn2, 



■**'neiii='-fnm 



Indicates the file ordinal; any num- 
eric constant, variable or expression 
with a value between 1 and 131071. 
FHe ordinal of zero has special 
meaning (see text below). 

Ifn')™^ Ind-'cates the file name (a string 

constant or variable with sevsn jr 
fewer alphanuiieric characters), t'le 
first character must be a letter anH 
tne alphabetic characters used mi^st 
be uppercase; string expressions can 
also be used for the file name. 



Figure 7-1. FILE Statement Format 

\M I i lo bufit-rn, one for each n.ims' or nuiiri. r p.iir 
do.r^mred in .i i I KILI'. bLdLuments, are .illof'Led as 

'-'■o program is .-omp led. A m-iximiim >;!■ Ij f..,ch 
buffers is .i'!(i«i'd. Ndiri-S and numbers -ire .is-io'i- 

iti'J with cd^-h Dther .-ind assigutid fo .!■' .iv.iii.iblc 
iiU butter when ,i Fli.fc. .LalcmenL Ls e/CCuLed. 
I^aneh and nirnboi •> ransL Ik- uniqui;, not currently in 
use, .i.iJ buffer space mubt bu nvdildble or a f.itdl 
li-ror rcsulLB. lliertf ord, a FILE scatomt'ni can be 
fxjcuLL'd only once, mless the file namu^ .md iium- 
bcrb lh;iL Llie I'lij; sLdLemc:it uses are differ<;nt for 
cd'.-'i cxerutio.-i and unassigiiGd buffers are avalJ- 
.ible, or unless the names, niimburb, .md buffers 
tliiL the FILL statement uses are first released by 
urtiii» n CLOSK •^l .it cmont . 

'ni'li-i tliL- FILE sL iLcment rererences a previously non- 
existing file nrunu, an crapLy lilu ib created; data 
can Liter b.> added to the empty file by using st.itu- 
m^'its like PRINT, WRITE, and APPEND. When the FILE 
st-iLumcnt rotoruncLS a previously existing tile 
(ln.iL), the FILE stacemcnl docs noL pooiLion Lhc 
filp. Therefore, if unsurt- of lhc present position 
of tlie file, RESI'ORE tlip fil. bL-forc using it. 

in oxdmplc 1 o£ ijgure 7-2, Llie ordinal 99 is 
assigned Lo Lhu file OUIPUl', so thai ail data 
pj.ici.'d on tile 99 is printed on the term1n.il or the 
priiiLor (OUTPUT is a special tile name). In exam- 
p\f 2, filers OLDM and NEriM are assigned orJinal«i, 1 
and II, re.spoi't i vuly , In oii..implc '3, .i lilt; (name 
detijrrained during execution of Lhc program) is 
js.s.giied ordinal 'i8. In example 4, both tile name 
and ordinal are iletermi nod during exccuLlon. It 
Lhu variable X is not .\n ''■iLeger, it is Cuundod to 
an jnLeger. 

Fi-o ordinal 7ero lias <i special rcborved meaning. 
A' tl-ougli using It in the FILE statement has no 
efr<-cL, it refers to the default inpuL llie in 
input-related statements and to the default outpuL 
tile in output-relaLed atatements. (See .section 
12, Batch Operations, J and K parameters.) These 
files are connected to the terminal when running 
inLocactively; for example, ordinal zero refers to 
Lhe terminal »hen it is running InLeractivuly. 
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1. 


110 FILE #99 = "OUTPUT" 




2. 


10 FILE #1 = "OLDM", #11 = 


= "NEWM" 


3. 


50 FILE #48 = A$ 




4. 


100 FILE #X = A$ 





Figure 7-2. FILE Statement Examples 



CLOSE STATEMENT 

The CLOSE statement is used to disassociate a file 
from the BASIC program. The associated ordinal and 
file buffer space become free for reassignment to 
another file by executing another FILE stafemiMit. 
The file is retained as a local file, and can be 
referenced again following an jippropriate FILE 
statement. Explicitly stating the CLOSE statc:mciit 
rewinds the disassociated file (positions the file 
at the beginning). Figure 7-3 Illustrates the 
format for the CLOSE statement. 



CLOSE -nc 












ne IndicalPS 


lile oirJindl 


CXp?L'MOli .K 


a 


numerir. 


'■nnsMMl, 


Vdrubl", 


or 


cxpiessiiin 







Figure 7-3. CLOSE Statement Format 

In figure 7-4, the first statement makes file 
DTFILl available as file ordinal I. The second 
statement detaches BTFII.l from the BASIC program 
and frees file ordinal 1. The third statement 
makes DTFIL2 available as f'le ordinal 1. The 
fourth line makes file DTFILl available once more, 
this time to be referenced by file ordinal 2. The 
fifth and sixth statements detach DTFILl and DTFTL2, 
respectively, from the BASIC program, and free 
their associated file ordinals and buffers. 



100 


FILE 


#1=' 


•DTFILl" 


110 


CLOSE 


#1 




120 


FILE 


#1=' 


■DTFIL2" 


130 


FILE 


#2="DTFIL1" 1 


140 CLOSE 


m 




150 


CLOSE 


#2 




160 END 







Figure 7-4. CLOSE Statement Example 

FILE CONTROL STATEMENTS 

The file control statements RESTORE, ;^^S^^00:: 
■'^^vr0^,P'l&i0'-if'^ir.0^'^' are used to manipulate 
files and internal data" tables in various ways. 
For example, these file control statements can be 
used to check the position of the file pointer 

■tTS01JATA',"tl'=-%in3,*',;aM;:lP IWBE) and to move the file 
pointer to the beginning of a file (RESTORE) and to 
the end of an existing file (AT?]?gS6),. 

All of the file control statements can be used with 
binary and display format files; the RESTORE and 
^^■^S statements can also be used with Internal 
data tables created by the DATA statement. 



RESTORE STATEMENT 

A file or internal data table has a pointer associ- 
ated with it that indicates the position of the 
file or table. For an input file, as the file is 
being read, the pointer moves ahead, indicating the 
next item of data to read. For an output file, the 
pointer is always at the end of the file, indicat- 
ing where the next data item is to be written. The 
RESTORE statement positions this pointer to the 
beginning of the file or internal data table. A 
file is not automatically rewound at the end of 
program execution. A file can be rewound with a 
RESTORE or CLOSE statement. Once a file has been 
restored, it can be written into or read. After 
execution of a RESTORE statement, a file is in 
sequential mode. If data is written to the file 
without using a SET statement, information that is 
on the file might be destroyed. The file can be in 
either binary or display format. Be careful not to 
write over any data that is to be saved. Figure 7-5 
shows the formats for the RESTORE statement. 



1. 


RESTORE 


2. 


RESTORE 'HP 




ne liidiciitus iiiimcnc i:oii<;trint, vntiahlr' ni 




cxpiesiioii. 



Figure 7-5. RESTORE Statement Format 

In figure 7-5, if format 1 of the RESTORE statement 
is used, the statement refers to the internal data 
block created by the DATA statement. If format 2 
is usi'.d, the numeric t-xpression ne must evaluate to 
jT existing file ordinal; for example, the number 
associated with the file name through the FILE 
statement. The expression ne is rounded to an 
Integer. An example ot the RESTORE statement is 
shown in figure 7-6. The DATA, READ, and PRINT 
statements are described later in this section. 



10 


DATA 1,2,3 


20 


READ A,B,C 


30 


RESTORE 


40 


READ D 


50 


PRINT A;B;C;0 


60 END 


produces: 


1 


2 3 1 



Figure 7-6. RESTORE Statement Example 
NODATA STATEMENT 

The NODATA statement can be used with files and 
internal data tables to test the location of the 
file position pointer. If the pointer is at the 
end-of-data, control branches to the statement at 
the line number specified in the HODATA statement. 
Thus, NODATA can be used to determine if all the 
data in a file or internal data table lias been 
read. The test for end-of-data is made immediately. I 
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Control does not pass to thp sppcifipd statement if 
a subsequent INPUT, READ, MAT INPUT or MAT READ 
statement reaches end-of-data. Figure 7-7 shows 
the format for the NODATA statement. 



1. 


NOUATA In 


2. 


NODATA =iic. In 




In IntliiMiii^ line nunihiM. 




■in liicliujtus filu orcliniil ex[iii!<!si>rl .is .i numnrn- 




cunblcint, v.iri>ihlH, or I'spiesMon. 


T« C 


Figure 7-7. NODATA f ta-ement Fjrma: 



In figure 7-7, [f format 1 is used, the NODATA 
•statement refers to an inturiinl data block created 
by the DATA statement. If format 2 is used, the 
NODATA 'itatoment refers to a binary or display for- 
mat file with tho ordinal that ntitcht-s tht- ordinal 
specified as ne. The ordinal iie is rounded to an 
integer. 

Files that have Just been -loqucnLia Hy written have 
no data available for reidini?. Thus, when NODATA 
references a file that Ii.-is Just been sequentially 
written (and not yet repositioned with RtSTORlO , «"i 
end-of-flle c.ondiLion is indicated, and control 
imraediaLely transfers to the stntcmenL nl 1 liiy 
aumber In. Conversely, when NODATA references an 
internal data table that ront.iins «t least one Itpin 
and lias not yet beun road, transfer of control is 
not exccuCfd. 

The NODATA statoment Is typically used for ond-of- 
information processing, as in 1 iguro /-tJ. The 
first NODATA statement in line 110 di'tec.ts nn 
end-of-information on the Intfrnal data block and 
directs control to statement 150, where a message 
is printed. Note that since file #1 has just been 
written on the first time through, the KODA'IA 
statement in line 160 detects an end-of-inf uriiirition 
condition on file #1. 



090 


FILE #1="N0DAT1" 




100 


DATA 1,2,3,4 






110 


NODATA 150 






120 


READ A 






130 


PRINT A 






135 


WRITE #1,A 






140 GOTO 110 






150 


PRINT "END OF 


DATA 


BLOCK* 


160 NODATA #1,180 






170 STOP 






180 


PRINT "END OF 


FILE 


#1" 


190 


END 






produces: 






1 
2 








3 








4 









END OF DATA BLOCK 
END OF FILE #1 



IF END STATEMENT 

The IF END statement is logically equivalent to the 
NODATA statement, except IF END cannot refer to the 
Internal data block created by DATA statements. 
The numeric expression ne in figure 7-9, is evalu- 
ate! and rounded to an integer. The status of the 
file that has this integer as Its file ordinal is 
then Interrogated in a manner similar tu that of 
the NODATA statement. Control is transferred to 
the statement line number In if the pointer is 
found to be at the end of data. The IF END state- 
ment Is customarily used for end-of -information 
processing, as Illustrated in figure 7-10. 



Do not use the second format because It might not 
be supported In future versions of BASIC. See 
Future System Migration Guidelines, appendix E. 



1. 


IF END 


#ne THEN In 


2. 


IF END 


irne GOTO In 




hU 


Indicates file ordinal expressed as a 
numeric constant, variable, or expression. 




In 


Indicates lino number. 



Figure 7-9. IF END Statement Format 



10O FILE #1="IFEND" 
110 IF END #1 GOTO 160 
120 INPUT #1,A 
130 PRINT ,A 
140 LET S=S+A 
150 GOTO 110 

160 PRINT ," " 

170 PRINT "TOTAL:", S 
180 END 



File IFEND contains the values 10, 10, 20, 
20, 30, 30, 40, 40. Program output: 



10 
10 
20 
20 
30 
30 
40 
40 



TOTAL 



200 



Figure 7-8. End-of-Information Processing 



Figure 7-10. IF END Statement Example 



IF MORE STATEMENT 

The IF MORE statement Is the logical converse of 
the NODATA statement and the IF END statement. 
Similar to the IF END statement, the If MORE state- 
ment cannot refer to the i nternal data block. The 
arithmetic expression ne is evaluated and rounded 
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to An integer. Thu -tatub .if ihi- fi^.-- rliAt han tlie 
Integer .18 Itb lile urdlnal Li> .nterioK >»-ed. foii- 
trol 1"! Lransferred Lo tlii- '.t.itunn-iu with the line 
number spetifJi-J In .n, unly if t'.it ti.nter Lb E"und 
nut til hi" .It the iii«l of data; lor i-yimple, ir rheru 
lb Jit.J HVii.labLi' fi-r iL-adlng. F.?,i.r.; 7-1 j lUat- 
tritib tin- '■oum-it I'lr the II' MORE 'tiLtnicnt . &■ 
nit ii'<c' tht second fnimat bi'c .iii'si- il iilglil -i. t bir 
vippurtpd in futnie vt-rbJ.n, .u BAS.i . Soe I'uluri 
Svhii-m MiBC.ilicin l.iiidi'l mi •■ , .ipjipndiji K. 



1. 


IF MORC ---np THEN In 


2. 


IF MOHE ^ne GOTO In 




ne Inrlii.dlps tili' ciiilinnl pxprps^iul ui j iiiitnniic 




uinstJiit. Mridbl-, or expro'.ion. 




In IndirdtHs lini- luiniher. 



Figure 7-11. IF dORE Statement F-irmot 

hi(!ii..- T- J diijji . it^- f .^.i.n,-J- ■-- ■ " ■'■■' -" 
FND jlaliiii. ir ; !• iwc ■•■■ , i ■■ i.. »■•. li ■ IF MuRI" •■.. L.— 
nL-it lij ill'i* ■"■ r und-il-i.i ••ir.it. or inii-'. .'.'• 
Nut.- that i--t.- fF ^'IBL i"...ws t'l- iimfr.in. '• S 
-111 rli .ii-u '''/ ci.i ' I 1. . 



100 FILE #1="IFEND" 

120 INPUT #1,A 

130 LET S=S+A 

140 PRINT ,A 

150 IF NORE #1 GOTO 120 

160 PRINT ," " 

170 PRINT "TOTAL:", S 
180 END 



File IFEND contains the values 10, 10, 20, 
20, 30, 30, 40, 40. Program output: 



10 
10 
20 
20 
30 
30 
40 
40 



TOTAL 



200 



Figure 7-12. IF MORE Statement Example 
APPEND STATEMENT 

The APPEND sC.itemeiit enables d.ita to be added to 
the end of an existing binary or display format 
file (APPEND cannot be used wj th Internal d.it.i 
tables created with the DATA statenent). The for- 
ni.-it for the APPEND statement appears in figure 7-13. 



APPEND #ne 



Indicates file ordinal expressed as a numeric 
constant, variable, or expression. 



Figure 7-13. APPEND Statement Format 



Executing an APPEMD statement causes the file 
pointer associated with the file ordinal specified 
as ne to be positioned after the last data item on 
the file. The expression ne is rounded to an inte- 
ger. The file mode (binary or display) is set 
depending on the mode of the last input or output 
operation Cor the file. If there is no preceding 
input or output operation, or if the last operation 
was a RESTORE, the mode is determined by the next 
output operation on the filf. After APPEND, an 
output operation on the file, such as WRITE or 
PRINT, causes the inEorm.itlon to be added to tVie 
file. Once the file has been positioned, any .amount 
of data can be written. It is not necessary lo 
execute .'in APPEND before each output st.->tement. 
Any attempt to INPUT or READ from a file after an 
APPEND for that file and without an intervening 
RESTORE or SET causes the execution time diagnostic 
ILLEGAL INPUT ON FILE. 

Figure 7-14 shows one method of adding information 
to the end of a file. In this case, the file used 
IS a rile of student grades. The first example 
program attempts tu read through the file, and 
write at the. end. An execution diagnostic results 
as shown. The second program has an APPEND st.-ite- 
ment inserted before the WRITE statement. This 
positions the pointer after the end of data and 
allows additions to be made. The program then 
repositions, reads, and prints the contents oC the 
file showing that the new value was added to the 
end. 

BINARY I/O STATEMENTS 
AND FUNCTIONS 

The following paragraphs describe the BASIC state- 
ments and functions used to read and write binary 
format files. The binary I/O statements are WRITE 
for creating binary fiJes; READ for reading binary 
tiles; and SET for pointing to a specific word 
location within a binary file so the next READ or 
VnilTE statement can reference the desired word. 
The binary I/O functions are LOC and LOF. LOC and 
JiOF functions aid in the random access procedure 
and are described in the following text. 

As stated at the beginning of thin section, binary 
files cannot be directly connected to the terminal 
or output on a printer. Binary files must be disk 
files and can be referenced by using either the 
sequentl.ll or random access method. The READ and 
WRITE statements .ipply to both methods of accessing 
binary data, and the SET statement .applies only 
when you want to randomly acccess binary dat.i. Two 
basic' built-in functions, LOC and LOF, aid in the 
random .iccess procedure. 
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Incorrect APPEND Statement Example Program: 



100 FILE #1="CREATED" 

110 READ «^,A 

120 IF MORE #1 THEN 110 

130 LET A=99 

140 WRITE «^,^ 

150 END 



Output from Incorrect Program: 



ILLEGAL OUTPUT ON FILE AT 140 
BASIC EXECUTION ERROR 



Corrected APPEND Statement Example Program: 



100 FILE #1="CREATED" 

110 APPEND #1 

120 LET A=99 

130 URITE #1,A 

140 RESTORE #1 

150 READ #1,A 

160 PRINT A; 

170 IF MORE U^ THEN 150 

180 END 



File CREATED initially contains the values 96, 
97, 98. After program execution it contains: 



96 97 98 99 



Figure 7-14. APPEND Statement Example 



WRITE STATEMENT 

Tlie WRITE statement is used to write a conCLguous^ 
block of data to a binary file. The data Is written 
into the file starting at the current position of 
the file pointer. No delimiters or eud-of-line 
chdracters are written. Figure 7-15 shows the 
format for the WRITE statement. 



WRITE ^ne.ei.ej. 


e„ 






SH! 


Indicates fiic oidin<il 
uonstiint, ir.iriabiE, oi 


uxpi eased d-s a numeri." 
expression. 


13 


iiHlic.-ites 
(numeric 


exprpssion. 
0! stiingl. 


vari'<bie, or 


coii'itnnt 



Figure 7-15. WRITE Statement Format 



When the WRITE statement is executed, the binary 
value of the expressions (e in figure 7-15) is 
written on the file Indicated by the ordinal (ne in 
figure 7-l.S). The ordinal ne Is rounded to an 
integer. 



fixes written by j WKlLi: statement c.in bt.- rt-ad only 
Dy i! READ statement in the same proj^ram ur jn 
A iol>ior liASIC program. NoLt-. tlidt for sequential 
.ii:i:EHS files, d simple WRITE opor.ition Cduses the 
file pointer to be positioned at the i-urrent end- 
'■f-f'.lo; <iny attempt to READ from the cLle without 
dn .nt-irweninK RESIORE ur set causes an I'xeoution 
time dlagnostl'.' H.LV.CU. ISVIT UN FILE. Figure 7-lfi 
illujLrjtes use of the WRITE statement. The binary 
values uf 1 >ind 10 are written on file f J . The 
fiJe is restored and the data la read, thi-n It lb 
printed. 



100 FILE #1="0LDH" 
110 LET A=1 
120 LET B=10 
130 WRITE #1,A,B 
140 RESTORE «1 
150 READ lil1,D,E 
160 PRINT D,E 
170 END 



produces: 



10 



Figure 7-16. WRITE Statement Example 



READ STATEMENT 

Binary files created by the WRITE statement are| 
read by the READ statement. Figure 7-17 shows the^ 
format for the READ statement. See I/O For Inter-: 
nal Data Blocks (described later in t\ils secLion) - 
for alternate formats of the READ statement for 
reading internal data tables created by the DATA 
statement. 



READ #ne,vi,V2, ■ ■ ■ ,v„ 






ne 


Indie itas tile otdiiidi 
ron^tant. viirijhlu oi 


expressed <ib a 
expression. 


nunri'rii: 


V 


indicjtus variable identifier inuinern: 


or itrinq). 



Figure 7-17. READ Statement Format 

In figure 7-17, binary data from the file with 
ovdln-il ue is read and assigned to each of the 

variables v^, V2 v^, respectively. The 

ordinal ne is rounded to an Integer. Numeric data 
items should be assigned to numeric variables and 
string data items should be assigned to string 
variables; otVierwise, unpredictable results can 
occur (rto diagnostic is issued). 

As each binary data Item is read from the file and 
assigned to a variable in the READ statement list, 
the file pointer is advanced to the next data item. 
If an executing READ statement attempts to read 
beyond the end-of-file, the execution time diagnos- 
tic END OF DATA ON FILE is issued. Check for an 
end-of-fUe condition by using the IF END, IF MORE, 
or NODATA statement. (See File Control Statements 
;in this section.) 
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; Output files that have been sequentially written 
must be restored (via the RfiSTORE or the SET state- 
ments) to be read; otherwise, the execution time 
diagnostic ILLEGAL INFDT ON FILE Is Issued. (The 
RESTORE statement Is described previously In this 
section under File Control Statements.) 

Figure 7-18 illustrates the BEAD statement. The 
program creates a file named MYFILE, then writes a 
series of values to the file (one string value 
followed by 20 integer values) . The program then 
reads the file information previously created, and 
displays the file contents at the terminal. 



SET STATEMENT 

The SET statement positions a file so that the next 
READ or WRITE statement executed on that file ref- 
erences the desired word. Figure 7-19 shows the 
format of the SET statement. When the SET state- 
ment Is executed, nej^ and ne2 are evaluated and 
rounded to an integer, then the file associated 
with the ordinal nei Is poslL toned at the word 
ne2. The user is responsible for computing the 
file position to be set dnd bhould remember the 
following: 

Niraioric variables occupy just one word each on 
a binary file. 

String v-iriables occupy n words, where n Ls. ihi? 
integral of the (mimbfr of 6-bit characters in 
the string +9)/10+lj for example, d string var- 
iable of length 34 6-bIt characters occupies 
INT((34-^9)/10)+l-S words. The i2-bit escape 
code ASCII characters count ns. two 6-bIt 
characters. 

If the logical blocks of information on the file to 
be refurencud in random mode are all tixed length, 
the starting word position of any particular block 
can be readily computed. The starting word posi- 
tion of the nth block is ((n-1)* block length ¥ 1). 
However, if variable length logical blocks are 



used. It Is necessary to produce a table of rela- 
tive logical block addresses When the file Is being 
created and to record this table In some fixed 
area, such as the start of the file or In a sepa- 
rate file. If the table size Is large and variable. 



SET 4ne^, neg 



Indicates numeric constant, variable, or 
expression that evaluates to a file ordinal 
associated with a file name. 

Indicates numeric constant, variable, or 
expression. 



Figure 7-19. SET Statement Format 

In addition to the SET statement, BASIC provides 
the LOC and LOF functions to help position directly 
to the desired word locatj.on so the word stored at 
LtMt location can be retrieved or written. Any 
attempt to position to a word location beyond the 
end of the file results in a diagnostic message 
RANDOM ACTION BEYOND EOF. The LOC function returnb 
the current word position on the file where the 
next READ or WRITE operation is to start, and the 
LOF function returns the length of the specified 
binary file. The first word in the file is word 1. 

Figui e 7-20 shows how the SET statement can be used 
to randomly access a binary file containing 12 stu- 
dent grades organized In student number order. The 
student number indicates the relative position of 
the student's grade record within the file, and tlie 
student numbers range from 10001 to 10012. For 
example, student number 10001 indicates that tho 
corresponding student grade record occupies the : 
first position In the file, and student number 
10012 indicates that its student grade record ] 
occupies the twelfth position in the file. The 
program prompts fur a student number; once the 
number is entered, the corresponding student grade 
is displayed at the terminal . 



100 FILE #1="«YFILE" 

110 RESTORE m 'ENSURES FILE IS AT BEGINNING 

120 LET A$="WRITE A FILE OF SEQUENTIAL NUMBERS FROM 1 TO 20" 

130 WRITE #1,A$ 

140 FOR 1=1 TO 20 

150 WRITE #1,1 

160 NEXT I 

170 RESTORE #1 

180 READ #1,A$ 

190 PRINT A$ 

200 IF END #1 THEN 999 

210 READ #1,A 

220 PRINT A; 

230 IF MORE #1 THEN 210 

999 END 



produces: 



WRITE A FILE OF SEQUENTIAL NUMBERS FROM 1 TO 20 
1 2 3 4 S 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 



Figure 7-18. READ Statement Example 
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PRINT STATEMENT 

The PRINT statement writes display format data on a 
terminal or a file. The formats for the PRINT 
statement are shown In figure 7-27. 



end 



1. PRINT e^ d 62 d 

e Indicates constant, variable, or expression 

(numeric or string). 

d Indicates delimiter (comma or semicolon); 

final delimiter is optional. 



ne 



Indicates file ordinal expressed as a 
numeric constant, variable, or expression. 



10 LET A$="STRING" 
20 LET B$="STRING2" 
30 LET X=1 
40 FILE #7="FILEX" 
50 REM PRINT ON FILE 
60 PRINT #7,A$;",";B$ 
70 PRINT #7,X,X+X,SIN(X) 
80 REM PRINT ON TERMINAL 
90 PRINT A$;",";B$ 
100 PRINT X,X+X,SIN(X) 
110 END 



produces: 



STRING,STRING2 

1 2 



.841471 



Figure 7-27. PRINT Statement Format 



Figure 7-28. PRINT Statement Example 



When the PRINT statement Is executed, the value of 
each expression (e) Is printed according to stand- 
ard format. Spacing between the printed values is 
controlled by delimiters (d) In the print list. If 
no expressions are specified, a blank line Is 
printed. 

The PRINT statement of format 1 In figure 7-27 
writes on a default file named OUTPUT. When run- 
ning the program Interactively, file OUTPUT is the 
terminal; when running in batch mode, file OUTPUT 
is the printer. The default file name can be 
changed by using the K option of the BASIC control 
statainent. (See B.iLch Operations, section 12.) The 
PRINT statement of format 2 in figure 7-27 writes 
on a file whose ordinal Ls ne. 



Format 1 prefixes a carriage control character at 
the beginning of each line. Except for the first 
printed line, this character is always a blank. 
The carriage control character is not normally 
affixed to lines output if the second PRINT format 
is used, unless the file ordinal referenced is that 
of the default print file OUTPUT or default file 
specified by the K option of the batch BASIC 
control statement. 

To assure that the data from the format 2 PRINT 
statements print In proper order when the files are 
connected or assigned to the terminal, RESTORE or 
CLOSE the file before executing any other I/O 
statement that references a connected file. 

When printing data on a file that is to be read 
later with the INPUT statement, ensure that items 
on the file are separated by delimiters. When only 
numbers are printed, default delimiters (blanks) 
are automatically Included In the output. When 
printing a file containing strings, each string 
must be printed on a separate line, or explicitly 
specified print delimiter characters must be printed 
between data items. In addition, if the string 
includes leading or trailing blanks, quote marks 
must be printed around the string. Figure 7-28 
illustrates an example of the PRINT statement. 



DEFAULT PRINT FORMATS 

Unless a USING clause is used or the SETDIGITS 
statement (described later) is in effect, all num- 
bers and strings printed are printed In standard 
default formats. These formats are explained below. 



Numeric Formats 

Numeric values are formatted in one of the three 
standard formats shown in table 7-4. A program 
example using the numeric formats Is shown in 
figure 7-29. The following items refer to the 
output formats in table 7-4. 

The n represents a numeric digit. 

The s represents a minus sign If the value Is 
negative and a blank if the value Is positive. 

Each format is terminated by one trailing blank. 

Leading and trailing blanks are suppressed by I 
the STR$ function. | 

Leading zeros are suppressed. 

Trailing zeros after a decimal are suppressed 
in F format, but not in E format. 

The final digit in both the first and second 

formats of table 7-4 Is obtained by rounding to 

the sixth place from the first nonzero digit, 
for example: 

123 456 789.453 is rounded to 123 457 000.000 

and 

.001234567 is rounded to .001234570 



String Formats 



String values are formatted as a contiguous group 
of characters. For example, only the characters In 
the original string value are displayed; no quota- 
tion marks or blanks are added. 
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100 LET A1=Q 

110 LET B1=-124 

120 LET CI =123456 

130 LET 01=1234567 

140 LET £1=123456.789 

150 LET F1 =-.00192 

160 LET 61=1234567890 

165 LET HI =1234567. 8 

170 LET J1 =.07623488 

180 LET K1=-. 00001 92 

190 PRINT "INTERNAL VALUE" 

200 PRINT "0"/'-124"/'123456","1234567","123456.789" 

210 PRINT 

220 PRINT "OUTPUT FORHAT" 

230 PRINT 

240 PRINT A1,B1,C1,D1,E1 

250 PRINT 

260 PRINT "INTERNAL VALUE" , „ „„„™„,„ 

270 PRINT "-.00192"/'1234567890"/'1234567.8"/'.07623488"/'-.0000192" 

280 PRINT 

290 PRINT "OUTPUT FORHAT" 
300 PRINT F1,G1,H1,J1,K1 
310 END 



produces: 



INTERNAL VALUE 

-124 

OUTPUT FORHAT 

-124 

INTERNAL VALUE 

-.00192 1234567890 

OUTPUT FORHAT 



123456 



1234567 



123456.789 



.00192 



1.23457E+9 



123456 1.23457E+6 123457. 
1234567.8 .07623488 -.0000192 
1.23457E+6 7.62349E-2 -1.92000E-5 



Figure 7-29. Program Example of Numeric Formats 



TABLE 7-4. STANDARD NUMERIC OUTPUT FORMATS 



Internal Value 



Exact integers less than seven 
digits. 

Nonintegers that after 
rounding can be represented as 
accurately in decimal notation 
as in exponential (E format) 
notation. 

All other numbers. 



Output Format 
Used 



snnnnnn 
{I format) 

snnnnnnn 
(where one n 
represents a 
decimal point) 
{F format) 

sn.nnnnnE+nnn 
(E format) 



String constants are printed exactly as they appear 
in the PRINT statement, without the quotation 
raar'KH. Leading and trailing blai%s;fa,t:e;;,Sup^r0^,6i^a I 

nmii J^^. r ._ I - .. T7 ~ I. .... 'i'—.iii .n.^ ■i-l-io'iinrt H 



by using the 
in figure 7-30. 



.STRS funt-tlon. Examples of string 
fhP PRINT statument are illustrated 



PRINT ZONING 

The print line is divided into zones of 15 spaces 
each. Unless the MARGIN statement (described 
later) is used to specify some other value, the 
default margin (line length) is 75; there are five 
print zones in a line. A comma, used as a sepa- 
rator or a final delimiter, signals BASIC to move 
to the next zone of the print line, or to the first 
zone of the next print line when the last zone is 
filled. If a print zone is exactly filled by a 
print item, a comma separator causes the print 
mechanism to skip over the following print zone. 
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10 LET X=2 

20 LET Y=2 

30 LET Z=2 

40 PRINT "ANSWER", "X AND Z ARE ";Z,"X*Y*Z=";X*Y*Z 

50 PRINT "ANSWER", "X AND Z ARE "Z;"X*Y*Z=";X*Y*Z 

60 PRINT "ANSWER",STR$(X);STR${Y);STR$(Z) 

70 PRINT "ANSWER", X;Y;Z 

80 END 

produces: 



ANSWER 


X AND Z ARE 2 X*Y*Z= 8 


ANSWER 


X AND Z ARE 2 X*Y*Z= 8 


ANSWER 


222 


ANSWER 


2 2 2 



Figure 7-30. String Formats Using the 
PRINT Statement 

A semicolon used as a separator has no spacing 
effect (the print line zoning effect Is inhib- 
ited). Numbers are printed, preceded by a blank or 
a minus sign, and followed by another blank, so two 
positive numbers are separated by two blanks. (See 
figure 7-31.) 

When a semicolon is used to separate strings, the 
strings are printed consecutively without any 
preceding or intervening blanks, as shown in figure 
7-32. 

Commas and semicolons can be intermixed in any 
PRINT statement. When commas are used as sepa- 
rators with numeric data, each number occupies one 
zone; but with string data, each string can occupy 
more than one zone. 



be used as a separator when the TAB function is 
used because the semicolon has no spacing effect. 
Figure 7-34 illustrates the format for the TAB 
function. The TAB function is legal only in the 
PRINT statement; it should not be used in MAT PRINT 
or PRINT USING statements. If the argument is less 
than the current position, the print mechanism is 
positioned to the specified column of the next 
print line. If the argument is greater than the 
current line margin, it is divided by the line 
margin, and the remainder is used as the argument. 
If the argument Is less than one, a warning diag- 
nostic is issued, and the value one Is substituted. 
Examples of the TAB function appear in figure 7-35. 



10 LET A1=123 

20 LET B2=256 

30 PRINT "12345678901234567890" 

40 PRINT A1;B2 

50 PRINT -A1;-B2 

60 PRINT -A1;14.3 

70 END 



produces: 



12345678901234567890 

123 256 
-123 -256 
-123 14.3 



Figure 7-31. Use of Semicolon With 
Numeric Data 



Successive commas can be used to skip zones. Each 
comma causes a skip to the beginning of the next 
print zone. Successive semicolons have no spacing 
effect. 

If a PRINT statement does not end with a delimiter 
(either semicolon or comma), subsequent printing 
commences at the beginning of a new line. If a 
PRINT statement does end in a delimiter, subsequent 
printing continues on the same line until the line 
is filled. If a semicolon is used as the final 
delimiter, the next item printed starts in the next 
available space. If a comma Is the last delimiter, 
the next item printed starts at the beginning of 
the next zone. 

If the formatted print item does not fit entirely 
on the current line. It is printed as the first 
Item of the next line. If an item does not fit on 
an empty line, it is broken at the margin and 
continued on the next line. (See figure 7-33.) 



10 PRINT "THIS IS";"AN EXAMPLE" 
20 PRINT "THIS IS","AN EXAMPLE" 
30 END 



produces: 



THIS ISAN EXAMPLE 

THIS IS AN EXAMPLE 



Figure 7-32. Use of Semicolon 
With String Data 

PRINT USING STATEMENT 

The PRINT USING statement writes display format 
data on a terminal or file. The formats for the 
PRINT USING statement are shown in figure 7-36. 



TAB Function 

The TAB function causes the printing mechanism to 

tab to a specified column. Printing can commence 

in the specified column. The semicolon should 



When the PRINT USING statement is executed, the 
value of each expression (e) is printed in the 
format specified by an image. The Image is de- 
fined in the image statement (In) or in the string 
expression (se). 
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Example 1: 



10 FOR 1=1 TO 10 
15 PRINT I 
20 NEXT I 
30 END 



produces: 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



Example 2: 



10 FOR 1=1 TO 10 
15 PRINT I, 
20 NEXT I 
30 END 



produces: 



1 2 3 

6 7 8 



5 
10 



Example 3: 



10 FOR 1=1 TO 10 
15 PRINT I; 
20 NEXT I 
30 END 



produces: 



1 23456789 10 



Figure 7-33. Print Zoning Examples 



TAB(ne) 

ne Indicates constant, variable, or expression 

indicating the print position number. 



Figure 7-3A. TAB Function Format 



Format i t figure 7-36) prefixes a carriage control 
character at the beginning of each line. Except 
for the first printed line, this character is 
always a blank. The carriage control character is 
not noraially prefixed to lines outpjt by format 2, 
shown in figure 7-36, unless the file ordinal ref- 
erenced is that of the default print file ^for 
example, OUTPUT or the file specified by the K 
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.ipli-jri ot the BASLU roiitrol Hi ;il i-raunt J . To isburd 
lh.it Lhi- iliL.i print.-. i:i propi-r orJur wliiiii tin- tLle-! 
ari' fiiiini'Cti.'fl iir issiK.n-d lo the I i-niiiii.il undLT Ni'l 
v.- using rorniMr 2 I'RINT USING st.itfmi-ntsi, RESTOKIi 
or CT.OSK rhi- lili- lie-iori.' I'Xi'cutinK -"iv Dther T/0 
bCiitpmont thiit rctiTi-.i. I". .1 cunneiTeil fHi-, 



Example 1: 



20 PRINT TAB(10);"1";TAB(20);"2";TAB(30);"3" 
30 PRINT "123456789012345678901234567890" 
40 END 



prcxjuces: 



1 2 3 
1 2345678901 2345678901 234567890 



Example 2: 



100 LET 11=12345678 
110 LET 12=123456789 
120 LET 13=12345678901 
130 LET D1=123.4 
140 LET D2=1 23.456 
150 LET 03=123.4567 
160 PRINT I1,TAB{25);01 
165 PRINT I2,TAB(25);D2 
170 PRINT I3,TAB(25);D3 
180 END 



produces: 



1.23457E+7 
1.23457E+8 
1.23457E+10 



123.4 

123-456 

123.457 



Figure 7-35. TAB Function Examples 



1. PRINT USING In. e^ ri «2 <■ 
PRINT USING S!. i!| cJ hj rl 

2. PRINT .'.'lie USING In, e., d uj d . . . e„ d 



.e„d 



PRINT !fne USING se, e^ d 63 d . . . ^„ 



f., d 



e IndiCiites i:anstunt, vdrinbln, or iixpiessioii 

(nun)Rri(- 01 stiinql. 

d Indicates delimiter rroniina 01 seniicoloii); 

fiiial dniiriiitci it optiondl. 

nu liidictit«!> numeric uonstanT, vaiiablu, ni 

axpre»sion tlkil Rvaliiatiib to a file ordinal 
aMociated with a filu ndmp. 

In Indicates line nuinbur of image statemnnt 

(desciibpd later in this sfsrtionj. 

SI! Indicates stiing constant, varirible, 01 

expression describing The image required 
ta format the output (described Ijler). 



When pr inline 'I'll- 1 on .1 f i U- that is to be .-ynri! 
later wlrh thr INPUT sLfiCijiiUMiL , ensure that IttmJ 
on the rill- .in- sup.ir.iti'd hy dif! imJU-rs. When only! 
iimnhur'. An- print-.!, rli;fdiiit dclimilurs (hi. inks)! 
jre aiitunwlirdlly iiitludfd 1 1 the iiulpuL. Whi-n! 
princiiif; .i t\\" cunlrfinliiB strings, e.ich sCrtngl 
iiiii-.t bu pr.nlfil on .1 Sfp.ir.itc line m uxpl ii:i tlyl 
Bpi'i-ii'ied input dPlimltiTi, must In- jm-Juded hctwcbn! 
data 1ti-mx. m .iddltion to m.Untain le.idiiiB and 
tciLHns hldnlsK ;n iho string, you niisl print the 
btringR witnin qu.jt.ilKin mark ch-iract^irs. 



IMAGE 

Tliu imaijp for i PRINT USING •.l.iti-mi-nt di-scribes the. 
out-put riirnicit inr thi- vdlue to lie printed, it i-.on- 
s:sls ot tiirm.Jt liL-lds for tMch value Ln the print 
list ind uprinn.1l supdr.iLiiig iitfr.iU. Each i har- 
ittfr in rhu im.igu rorn-bijuiidb Co unu chur.ic tor in 
the prinl.'d untpul . Wlifii thi' fiirm.-it fiuld is tilliid 
hy Blring d.itd, the spec ific.it Ion Ji'termliws only 
till- number .il chir.i.-li'rb Lo bo Lucliided frnm the 
■Jtii.iR. Whun till- form.it Is tilled by numeric d,it3, 
till- format .sppc iric4ti.in JirccLi. th«- plrtcetienL ut 
tlie valiii in thi- field .ind the numbi-r of dLgitM 
rotriined In the ci)nvi-ri<>d v-iluu .is upll .-is thi- 
extr.i clurjcterh to bu pruned with tlio va'u.. Uur 
PXEimpIo, dt.rim.il pojrt, d'jllir sign, or -iscerihk&j. 

Ai, demrlhi'd under tiie PRINT USING i.trfU-munt, ,\n 
in-ige cm he written as a siparatp Kt.il.i.<mu:it t.r jh 
.1 Rtrln); cxprusa iiin. An im.igi- stiing is, 0011- 
stru.-tcd .IS ".hiiwn in riKuro 7-37. An image st.ilu- 
moa\ is not exi-cutdbin, so it has no etti.cc on the 
reqifltti of the pmgrjm It It ib encunnl 1 rc-d during 
J norm.Tl L-xerucIon sequenfi-. The format of .in 
1ni.igc st.ittiment Is .is shomi In figure 7-38. 



•-0F1L1F2L2 



FnLii 



L (literals) Characters are to be printed exactly as they 
appear. 

F (fields) Specifications th.it picture lornidts loi 

printing numeiic and/oi string v.ilues. 



Figure 7-37. The Image for d 
PRINT USING Statement 



: image 



Figure 7-36. PRINT USING Statement Formats 



Figure 7-38. Image Statement Format 

Liter.i:^ cm i-onl.iiu .iny ch.iiji.Lur nr c uiabiidt i un 
of i-h.ic.icLi-r^ l.li.-it do nnt i-iinsLl Lulu d itirm.iL licid 
(F). I^iirm.il fields .-iii. cunstrui-l i-d from spei-ilica- 
rion <-h.ir.icL.jrs #. S. *, s, ., z- . h, _, .-.iinmci , i. , 
.ind I . 

A se.p.ir iLi' imd;>u st.itement Is rciurHnciiil by its 
line niinbi'r Uroni hi thin the PRI.NT USING st.ilem(<nt; 
as sliiiwii i.i exdmplf J, ligure 7-3S. For si-p.jr.iH; 

iim.iiju htati-mcnLs, a ti.iliing liLeril 1 .mnut be 

I terminated by .1 blank. Vnr cxdmpii:: 

: 'LITERAL AAA 
jl.s (.'onipiled .is: 
I : ^LITERAL 
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Example 1: 



100 LET T1=544 
200 PRINT USING 300,T1 
300 :TOTAL OF ORDERS ##### 
400 END 



produces; 



TOTAL OF ORDERS 544 



Example 2: 



100 LET T1=544 

200 PRINT USING "TOTAL OF ORDERS ###/>#",T1 

300 END 



produces: 



TOTAL OF ORDERS 544 



Example 3: 



100 LET T1=544 

110 LET A$="TOTAL OF ORDERS #####" 

120 PRINT USING A$,T1 

130 END 



produces: 



TOTAL OF ORDERS 544 



Figure 7-39. Image With PRINT USING 
Statement 



If the Image Is a string, it can be included as a 
string constant within the PRINT statement (example 
2 In figure 7-39) or It can be specified as a 
string expression referenced in the PRINT statement 
(example 3). 



When a value is printed according to a field of an 
image, the literal following the field (If any) is 
also printed. Only that part of the image that is 
required by the print list of the associated PRINT 
USIHG statement is used. 



Delimiters between items in the print list of the 
PRINT USING statement do not have the same meaning 
as they do In the PRINT statement because there is 
no print zoning. The final delimiter, if present, 
indicates that subsequent printing continues on the 
same line until the line is filled. Whether or not 
this delimiter is a comma or a semicolon, the next 
item printed starts in the next available space. 
If absent, subsequent printing begins on the next 
Ijne. 



If the number ut values tn be output in a PRINT 
USING statement lb gri.-<iLei than the niiaiber of Tor- 
mJl speclficatiuns In the lm.igc, the format specl- 
flc.-itionu are reused until all the variables liavc 
bei'n iiutput. Fur this case, the delimiter after 
tho l.-ist itum printed before repttltlon directs 
line .it-tlon. If Llils delimlLer is a ciimmn, a new 
lint- Is sturtud whi-n the image is ri.'po.iteil. If thv 
dulimiter in a semiculon, printing continues cm the 
sjme I inc. 

FLt;iire 7-40 illustrates the use of the final delim- 
iter. Tho result is the s.imo if the fln.il dflimiter 
lb •* Kcmirolon instead of ii comma. Figure 7-41 
shows how dellmlli'rs can affect the output wlien tlio 
imago is reused. 



10 


LET N=5 








25 


PRINT USING 


30,N, 




30 


: STOTALS PAGE 


nun 


DATE 


40 


PRINT DATS 








50 


END 








produces: 








STOTALS PAGE 


5 


DATE 


81/06/23. 



Figure 7-40. Delimiters in Image 



100 LET N=5 

101 LET H=1Q 

102 PRINT USING "##",N;H 

103 PRINT USING "##",N,H 

104 END 



produces: 



510 
5 
10 



Figure 7-41. Delimiters in Image Reused 

With respect to the print margin (the maximum line 
length), the output generated by PRINT USING is 
treated as one string. That is, if all of the out- 
put formatted by PRINT USING does not fit on the 
current line, it is broken at the margin and con- 
tinued on the next line. 



Format Fields 

There are three kinds of format fields available 
for use in Images: numeric, string, and neuter. 
Numeric fields can be further subdivided into Inte- 
ger, fixed-point and floating-point fields. Sign 
control and special editing options are available 
for numeric fields. The numeric, string, and neuter 
fields are described in table 7-5. Table 7-6 
describes the special options. Examples of these 
fields types and options are shown in figures 7-42 
and 7-43. 
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■TABLE 7-5. TYPES OF FIELOS 



Type of Field 



Numeric Integer 



Fixed- 
Point 



String 



Neuter 



Floating- 
Point 



Image Representation 



Indicated by any number of pound signs 

Indicated by any number of pound signs 
(#) with a single leading, embedded, 
or trailing decimal point. 

Indicated by a fixed-point specifica- 
tion followea by at least two, and 
usually five, circumflexes (^). 



Indicated by the < or > followed by 
any number of pound signs (#), 



Indicated by any number of pound siqns 



Output Format 



Value right-justified. Rounded to 
integer. 

Decimal point positioned as specified, 
decimal portion rounded to fit up to 14 
digits of accuracy. 

Decimal point shifted to fit format speci- 
fication and exponent adjusted accordingly. 
Value is rounded as for fixed-point. 



Value left- justified and right-truncated 
(default) or right-justified and left- 
truncated according to leading character. 

If the leading character is < , the value 
is left-justified in the field and right- 
truncated, if necessary. 

If the leading character is >, the value 
is right-justified in the field and left- 
truncated, if necessary. 



Numeric value right-justified and trun- 
cated to integer. String value left- 
justified and right-truncated. 



TABLE 7-6. SIGN AND EDIT OPTIONS 



Option Character 



Sign 



Blank or 
no sign 



( ) 



DB/CR 



Conrnia Insertion 



Floating J 



Check Protect 



Image Representation 



No sign control specified. 



Plus sign specified as first character in 



Minus sign specified as first character in 
the field. 

Parentheses enclosing field. 



DB or CR specified as last two characters 
of the field. 



Output Format 



Commas can be inserted between any charac- 
ters of a numeric field that can be 
replaced by digits when the field is used; 
for example, between pound signs {#), 
dollar signs (5), or asterisks (*). 



Leading pound signs (#) in a numeric 
specification replaced by dollar signs 
($). 



Leading pound signs (#) or pound signs (#) 
following dollar signs in a numeric speci- 
fication replaced by asterisks {*). 



if a value is negative, a minus immedi- 
ately precedes tne leftmost significant 
digit, for example, minus is treated as 
high-order significant digit. If a value 
is positive, sign is not printed. 

Plus is printed for positive vaijes; 
minus for negative values. 

aiank is printed for positive values; 
minus for negative values. 

Negative values enclosed in floating 
parentneses. Positive values enclosed in 
blanks. 

Negative value followed by DB or CR. Pos- 
itive value followed by two blanks. 



Commas will be printed where they occur in 
the numeric image, provided they are sur- 
rounded by digits. 



A dollar sign is printed in the rightmost 
dollar sign position in the image that was 
not replaced by a digit. Unused dollar 
signs are replaceo by blanKs. 



An asterisk is printed in every asterisk 
position in the image that was not 
replaced by a digit. Unused commas are 
replaced by asterisks. 
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Example 1 (integer field); 



10 LET A=12345.67 

15 PRINT USING 20, A 

20 : SUMMARY TOTAL=###»##«f 

30 END 



produces: 



SUMMARY TOTAL= 12346 



Example 2 <fixed-point field): 



10 LET A=1 2345. 678 

20 PRINT USING "TOTAL COST #####.##", A 

30 END 



produces: 



TOTAL COST 12345.68 



Example 3 (floating-point field): 



10 LET A=12.345E01 

20 PRINT USING "«.»n#it^^^",k 

30 END 



produces: 
1.2345E+2 
Example 4 (string and neuter fields): 



10 LET A=12345 

11 PRINT USING 12,"FRACTI0N =",A 

12 : <#«»nmunm u»n»» . 

13 END 



produces: 



FRACTION = 



12345 



figure 7-42. Format Field Types 



A field begins «Aiea a combination of characters is 
identified. A field ends When a literal is 
encountered; for example, whe:n a combination of 
characters appears that do not conform to the order 
restrictions described below or contain chacacters 
that are not allowable field characters. A field 
also ends when an end-of-line is encountered (or 
end-of -string). Tlie fields of the image statement 
are described In figure 7-44. 



Order Restrictions 

Tho following order restrictions govern the allow- 
able combinations of specification characters In 
fields. 

Plus and minus signs and the left parenthesis 
sign indicator, if present, must be positioned 
before all other characters of a field. Only 
one sign indicator is permitted per format 
field. 

Dollar signs ($), If present, must appear 
following the plus or minus sign. They cannot 
follow a decimal point. 

Any asterisks. If present, must follow the sign 
and/or dollar signs. Asterisks cannot follow a 
decimal point. 

Pound signs (#) can appear anywhere after the 
optional sign unless dollar nlgns and/or aster- 
isks are present. If they are present, the 
pound sign can only appear after them. 

The trailing sign, right parenthesis, or DB/CR, 
if required, can only appear as the last char- 
acters of an image field. 

Commas can appear anywhere provided they are 
surrounded by characters that can be replaced 
by digits when the field is used. Commas 
cannot, for example, appear next to a decimal 
point, a sign, or the first dollar sign. 

A decimal point, if present, can appear any- 
where after a leading sign or parenthesis and 
before a trailing sign Indicator. There can be 
only one decimal point per field. 

Figure 7-45 illustrates the result of inadvertently 
including a field character in a literal. Fig- 
ure 7-45 shows the corrected version. 

In figure 7-45, the first pound sign Is identified 
as a separate field and is replaced by the present 
value of N. Since there were no further items In 
the print list, the literal (a blank) following the 
field is printed, and scanning stopa. 
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Example 1 (sign specifications): 



10 PRINT USING 30,11,11,11 

20 PRINT USING 30,-12,-12,-12 

30 :+## -## ma 
40 END 



produces: 



+11 11 11 
-12 -12 -12 



Example 2 (comma insertion): 



10 PRINT USING "###,###,###,###",1000000 
20 END 



produces: 

1,000,000 

Example 3 (parentheses and DB/CR sign options): 

500 PRINT USING 550,1000.588,1000.588 

520 PRINT USING 550,-14738.10,-14738.10 

550 :(###,###,###.##) OR ###,###,###. ##DB YOUR CHOICE 

600 END 

produces: 



1,000.59 OR 1,000.59 YOUR CHOICE 
(14,738.10) OR 14,738. 10DB YOUR CHOICE 



Example 4 (floating dollar option): 



600 PRINT USING 650,10.75,138.7,111.888 

610 PRINT USING 650,-1738,-28,-29 

650 :$$,$$$. ##CR $$$$$$ ($$$###.##) 

660 PRINT USING "+$$$$$",-7 

700 END 



produces: 



$10.75 $139 $111.89 
$1,738.00CR $-28 ($ 29.00) 
-$7 



Figure 7-43. Sign and Edit Option Examples (Sheet 1 of 2) 



19983900 H 



7-21 



Example 5 (check protect): 



600 LET F$="$***,***.##" 
610 PRINT USING F$,1745.50 
620 PRINT USING F$,2S 
700 END 



produces: 



$**1,745.50 
$*****25.0O 



Figure 7-43. Sign and Edit Option Examples (Sheet 2 of 2) 



1010 :TOTALS : $$.$##.## #####$$$$#.##AMOUNT: $$,###.## 
t t t t t t t t 

® ® ®® ® ® Q) ® 

(1) The character T is not an allowable format field character so it indicates the start of a literal. 
(D The $$ begins a field. One $ by itself is not considered a numeric field. 

(D Blanks are not allowable format field characters so they indicate the end of the field and beginning of a literal. 

(§) The # begins a new field. 

(D The $ because of position cannot be part of the previous field, so that field ends. $$ begins a new field. 

(D The A is not an allowable format field character, so it indicates the start of a literal. 

(2) The $$ begins a new field. 

(g) The end-of-line terminates the last field. 



Figure 7-44. Fields of Image Statement Identified 



20 LET N=5 

21 PRINT USING "A IS # ## IN THE LIST", N 



produces: 
A IS 5 



22 


PRINT USING 

"#". N 


"A IS # 


## 


IN THE 


LIST" 


produces 














A 


S# 


5 IN THE LIST 









Figure 7-45. Field Character in Literal 



In figure 7-46, the string rf Is printed according 
to the neuter field # and the number is printed 
according to the neuter field tft. 



Special Cases 

Each of the characters that comprises a field is a 

place holder. That is, a blank, a symbol, or a 

digit replaces each field character. The following 

.sei:tion deals with rules of placement, large fields, 
accuracy, field overflov, and signs. 



Figure 7-46. Correction of 
Field Character Use 

There are no restrictions on the number of pound 
signs allowed in a format field in an image. How- 
ever, since the machine word size allows a maximum 
of 14 digits of accuracy, only 14 digits appear on 
output. 

If the value to be printed in an integer or fixed- 
point numeric format field is greater than lO^^-l, 
an * is printed followed by the number printed 
in floating-point format. (See example I in 
figure 7-47.) If printing a value according to a 
fixed-point format yields more than 14 digits, the 
least significant fractional digit positions are \ 
filled with blanks so that only 14 digits print. 
(See example 2 in figure 7-47.; 
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Example 1: 



130 PRINT USING "###################",1.08988620 
140 END 



produces: 



*+1E+20 



Example 2: 



100 LET A=-7.82 
120 PRINT USING 130, A 
130 :##.##############DB 
140 END 



produces: 



7.8200000000000 DB 



Example 3: 



100 LET A=7.82 
120 PRINT USING 13a,A 
130 :#.################' 
140 END 



produces: 



.78200000000000 E+001 



Example 4: 



100 LET A=-78 

200 PRINT USING "## 

300 END 



.##";A,7,82 



produces: 
*-78 *7.82 
Example 5: 



400 LET A=-17.82 

410 PRINT USING "$.##",A 

420 END 



produces: 



Example 6: 



800 LET A=1 2000000000.0 

810 PRINT USING "#.##^'^",A 

820 END 



produces: 
1.20E*10 

Example 7: 



500 LET A$="THIS IS THE TOTAL" 
600 PRINT USING "<###############",A$ 
700 PRINT USING ">###############",A$ 
800 END 



produces: 



THIS IS THE TOTA 
HIS IS THE TOTAL 



Figure 7-47. Special Cases for Format Fields 



If more than 14 t'ractlona] Jigits are requested in 
a floating-point format field, all digit positions 
beyond the 14th ari; replaced by blanks. The print 
positions of the exponent value are not affectod. 
(See example 3 in figure 7-47.) Unless DELIMIT is 
used, this result is not readable by a BASIC pro- 
gram because the blank delimits .78200000000000 
from E + 001. 



If a number. Including its sign, is to be printed 
but the number is too large for the image speci- 
fication, overflow occurs. (See example 4 In 
figure 7-47.) When an overflow condition occurs > 



if the Image field includes any of the special edit 
chardcters, $, *, 08, CR or (), whi.-.h normally 
denote a monetary field, the entire printed field 
is filled with ustcrisks to indicate that an error 
has occurred. (See example 5 in figure 7-47.) 
This is a significant feature when printing a mone- 
tary value, for example, printing ,x check, because 
it prevents the printing of an unexpectedly large 
value. Wlien an overflow condition occurs, but the 
image field does not contain any of the special 
edit characters, one asterisk is printed and the 
image is expanded to accommodate the size of the 
value to be printed, shifting all other fields to 
the right. 
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BpcauflP. of the nature of floating-point representa- 
tion, only the exponent portion of a floating-point 
number can overflow. In example 6 In figure 7-47, 
an asterisk Is printed following the E, and the 
actual exponent Is printed, shifting all other 
fields to the right; the result is In the format 
shown In the PRINT USING statement at line number 
810. 



200 MARGIN #6, 136 
310 MARGIN l*J/K 



Figure 7-49. MARGIN Statement Example 



A string that Is too large to be printed In the 
image specification Is truncated on the right or 
left, depending on whether the form^it specifies 
left-juBtif Icatlon or right-Just t flcatlon. (See 
example 7 In figure 7-47.) 



MARGIN STATEMENT 

*<• 
This statement defines the right-hand margin for 
printed output. 7t overrides the default margin of 
75. The formats for the MARGIN statement are shown 
in figure 7-48. The MARGIN statement permits the 
building of long lines for output on wide-carriage 
terminals or other devices. It also allows the 
program to control maximum record lengths written 
on files. When the MARGIN statement i.s used with- 
out specifying a file. It applies to standard out- 
put, such as the terminal or the printer. Output 
can be different than expected since It can he 
affected by lAF, INTERCOM, or the type of terminal 
used. Commands are available to change these 
results. See the NOS Interactive Facility refer- 
ence manual (NOS 1 sites). Volume 3 oF the NOS 2 
reference set (NOS 2 sites), or the INTERCOM 
Version 5 reference manual . 



Figure 7-50 shows that MARGIN controls the number 
of logical characters In the line, as opposed to 
physical 6-bit cliaracters; for example, in ASCII 
node l2-blt escape code characters count as one 
character and a line can be 150 6-blt characters 
long even though the margin is 75. This is nor- 
mally only of concern when passing BASIC files to 
other language programs. 



10 MARGIN 17 

20 PRINT RPT$<"a" 

30 END 


,26) 


,1 


.75 


,88 


produces: 










aaaaaaaaaaaaaaaaa 
aaaaaaaaa 

1.75 

88 











Figure 7-50. Program Example Using 
MARGIN Statement 



1. 


MARGIN 


no2 


2. 


MARGIN --ni!i. nuj 




nij<| 


liidicjlus flic oiilin.-il R»|iie«<;c(l <is a nuniRtii- 
i-nnstiint. vaiicJblf. or t!>prt>ssioii 




ni'2 


Indiciilcs riunifiriL- coiistdnl, vdiLible, ui 
oxprp'.'iioii. 



Figure 7-48. MARGIN Statement Formats 

In figure 7-48, the expression ne2 is evaluated 
and truncated to an integer. IL must be In the 
range through 131070, and its v.xUic aTfccts all 
PRINT statements to the associated file or the ter- 
minal until another MARGIN statement is exiicuLed. 
If the number of characters in the Item to be 
printed Is longer than the defined margin, it 
is broken into pieces so that as many lines as 
required are usud. 

A margin value of indicates that no upper limit 
applies (the margin is effectively set to infinity). 
This allows a continuous stream of characters with 
no line terminators to be generated. Figure 7-49 
shows examples of the MARGIN statement. 

In the first example, the right margin is set at 
136 for output to a file with an ordinal of 6 pre- 
viously specified by a FI1£ statement. In the 
second example, the expression is evaluated, 
rounded, and used as the right margin value for 
PRINT statements. 



SETDIGITS STATEMENT 

The SETDIGITS statement can be used to specify the 
number of significant digits Lo be output in subse- 
quent PRINT statements wlien the default formatting 
Is used. Numeric constants that are equal to or 
greater than seven digits are formatted and printed 
as exponential constants. This statement allows 
data printed up lo 14 significant digiLs to be 
obtained. The value assigned by SETDIGITS Is trun- 
c;ited to an integer in the range 1 to 14. Numbers 
.ire printed within the defined significance until 
Lhe und of the program or another SETDIGITS state- 
ment is encountered. Figure 7-51 illustrates the 
format for the SETDIGITS statement. Note that any 
relevant sign or exponent Is still printed even if 
a SETDIGITS value of 1 is In effect. A program 
example of the SETDIGITS statement is shown in 
figure 7-52. 



SETDIGITS 
ne 


ne 

IndicalQS tiumenc uunstant, 
flxpiesslon. 


viiriable. 


ur 


Figur" 7 


-51. SETDIGITS 


Statement 


Format 





INTERNAL DATA TABLE I/O 

I/O for internal data tables (blocks of data inter- 
nal to a BASIC program) uses the DATA statement to 
create and the READ statement to access the tables. 
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100 LET A=55. 


45454545 


110 PRINT "A= 


55.45454545 AND IS NORMALLY OUTPUT AS";A 


120 PRINT "SETDIGITS", "VALUE OUTPUT" 


130 FOR N=1 TO 10 


140 SETDIGITS 


N 


150 PRINT N,A 




160 NEXT N 




170 END 




prcxJuces: 




A=55. 45454545 


AND IS NORMALLY OUTPUT AS 55.4545 


SETDIGITS 


VALUE OUTPUT 


1 


6E+1 


2 


55. 


3 


55.5 


4 


55.45 


5 


55.455 


6 


55.4545 


7 


55.45455 


S 


55.454545 


9 


55.4545455 


10 


55.45454545 



Figure 7-52. SETDIGITS Statement Example 



DATA STATEMENT 



The DATA statement constructs an Internal data 
table containing the values appearing in the DATA 
statement line; this data can then be accessed by 
the READ statement. Figure 7-53 shows the format 
for the DATA statement. 



DATA statements are nonexecutable and have no 
effect on the results of a program if they are 
encountered in the normal sequence of execution. 

Figure 7-54 shows two examples of using the DATA 
statement to construct internal data tables. Exam- 
ple 2 also illustrates the diagnostic for not 
enough data. Both examples also demonstrate the 
READ statement. 



DATA Ci, C2, . . . , Cp 

c Indicates numeric or string constant. 



Figure 7-53. DATA Statement Format 

The data values cj, C2, ..., c^ are entered 
in the data table In the same order that they 
appear in the DATA statement line. The number of 
values per DATA statement line is restricted only 
by the length of the line. Any number of DATA 
statements can be used anywhere in the program to 
construct the data table; the BASIC compiler con- 
siders the statements to be contiguous statements 
and automatically places the data in sequential 
order in one internal data block before the program 
executes . 



Both quoted and unquoted strings are allowed in a 
DATA statement line. Leading or trailing blanks in 
unquoted strings are Ignored. An unquoted string 
can begin with any character othur than a comma and 
can contain any character other than a conuna. 
Characters other than plus, minus, numeric, alpha- 
betic, or period should not be used in an unquoted 
string because they might not be supported in 
future versions of BASIC. All characters in quoted 
strings are considered to be significant, including 
any leading or trailing blanks. 



Example 1: 



100 DATA 1,2,3 
110 READ A,B,C 
120 PRINT A,B,C 
130 END 



produces: 



Example 2: 



100 DATA 1,2,3 
110 READ A,B,C,D 
120 PRINT A,B,C,D 
130 END 



produces: 



END OF DATA AT 110 
BASIC EXECUTION ERROR 



Figure 7-54. DATA Statement Examples 
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READ STATEMENT 

The READ statement (READ without a file ordinal) is 
used to read data values contained in the internal 
data table. The internal data table Is a table 
containing data values that has been built Into a 
program by using DATA statements. The format for 
the READ statement appears In figure 7-55. 



READ v^, V2, 



Indicates variable identifier (numeric or string). 



NOTE 

An alternate form of the READ statement is provided 
for reading binary files created by the WRITE state- 
ment. See Binary I/O Statements in this section. 



and program execution terminates. Check for end- 
of-data by using the NODATA statement (described in 
this section under File Control Statements). The 
IF END or IF tK)R£ statements cannot be used to 
check for end-of-data in an internal data table; 
these two statements apply only to files. After 
issuing a READ, use RESTORE to move the data pointer 
to the beginning of the data table. 

In figure 7-56, the DATA statements at lines 10 and 
20 establish values for the data table. The READ 
statement at line 30 reads the first two data 
values (10 and 15). The READ statements at lines 
40 and 50 read the remaining data values. The 
substring reference F$(l:4) in the READ statement 
at line SO Indicates that the complete data value 
Is to be read into a substring of F$. The char- 
acter string THREE replaces characters 1 through 4 
of F$. The value of F$ after execution of this 
READ statement is THREES 678; the PRINT statement at 
line 80 outputs this value. 



Figure 7-55. READ Statement Format 

When a READ statement is executed, data values 
contained in the data table are placed sequentially 
into the variables vi, v2, ..., Vq. The read 
position pointer is advanced one data item for each 
value read. 

The variables in a READ list must correspond in 
t3T>e to data items being read from a data table. 
For example, numeric variables must correspond to 
numeric data; otherwise, program execution termi- 
nates, displaying the diagnostic BAD DATA IN READ. 
If the ON ERROR statement is used to trap this 
situation, the diagnostic BAD DATA IN READ is not 
returned, and a subsequent READ statement accesses 
the next data item (the one following the bad 
data). Note that unquoted strings that look like 
numbers can be read either as strings or nximbers. 

If a READ statement attempts to read more data than 
is available, the diagnostic END OF DATA is given. 



10 DATA 10,15, 


17 




20 DATA "ONE", 


"TWO","THREE","F0UR" 1 


25 LET F$="1 2345678" 




30 READ A,8 






40 READ C,D$ 






50 READ E$,F$(1;4),G$ 




60 PRINT A,B 






70 PRINT C,D$ 






80 PRINT E$,F$ 


,G$ 




90 END 






produces: 






10 


15 




17 


ONE 




TWO 


THREE5678 


FOUR 



Figure 7-56. READ Statement Example 
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MATRIX OPERATIONS 



8 



Matrices are arrays containing a collection ofi 
dacn. Matrices are widely usud in all applications! 
of programming. BASIC provides a series of func-j 
tions and statements designed to simplify the use; 
of matrices so that even tlie relatively inexperi-? 
enced programmer can work easily with them. 

The first part of this section provides an overview 
of what matrices are and how storage Is allocated 
for them. The remainder of this section describes 
the matrix arithmetic operations, matrix functions, 
and the matrix I/O statements. 



MATRIX DEFINITION AND 
DECLARATION 

A matrix is a collection of data, numeric or string, 
that Is structured to enable referencing of speci- 
fic elements of the matrix, and manipulating of 
data within the matrix as a unit. 

A one-dimensional array consists of elements of 
data in a linear arrangement. A one-dimensional 
array is treated as a column vector (n rows by 
one columr. array) in BASIC. To obtain a row 
vector, declare a 2-dimanslonal array with one 
row and n columns. 

A two-dimensional m by n array is a rectangular 
array containing m rows and n columns of ele- 
ments of data. A specific element of the array 
can be referenced (for example, A(2.3)), or the 
entire array as a unit in a MAT statement caa 
be referenced (for example, MAT A=B). Tf an 
array that has not been previously defined Is 
referenced as a unit, it is assumed to be a 
2-dlmcnsional array. 

A three-dimensional m by n by p array is iiri 
arrangement of p number of m by n matrices 
side by side. A specific .irr.iy element, cdn 
be referenced, for example, A(l,3,5); but ,i 
Lhree-diraenslonal array as a wholi- cannot be 
referencfd. Also, none of the matrix state- 
ments or matrix functions i-.fin monipulate Uiret- 
dimcnsional .irrays. 

The matrix statements and functions ore restrlcLi-d 
to tlie une of 1- and 2-d imensional .i.-iays. Oiiera- 
tions LhaL use 1-d imensional .irrnys must be provided 
by user-wrLtten routines. 

The number of array elements spei-ifiod and used 
within a BASIC program is limited only by the 
amount of available memory, exc.ppt for arrays u^od 
by the INV function; this functio'i can work with 
arrays no larger than 100 by 100 elements. Ln all 
casph, numeric array elements that receive n-i 
values are assigned zero values by default, and 
string arrays are assigned null strings by default. 



It should he noted, however, that it is poor pro- 
gramming practice to assume that variables liave a 
value before the program explicitly assigns values, 
particularly since, on many systems, this practice 
is not allowed. See the Future System Migration 
Guidelines, .ippendix E. 



ARRAY BOUNDARIES 

The lower boundary (or origin) of an array is 
normally 0. but can be changed to 1 by using the 
OPTION statement (described in section 3). This 
means that array subscripting can start either with 
(the default) or 1. For example, DIM A(2,4) de- 
fines a two-dimensional array having 3 rows and 
5 columns, or IS elements, when the base is 0. 
The elements of such an array are presented in 
figure 8-1. 



Wlien the OPTION statement is used to change the 
lower boundary of arrays to 1, DIM A(2,4j defines a 
two-dimensional array liaving 2 rows and 4 columns, 
or a total of 8 elements. The elements of such an 
array are shown in figure 8-2. 



Therefore, when working with matrices, it is impor- 
tant to remember that array subscripting starts 
with element 0, unless the OPTION statement is used 
to change the lower boundary to 1; in which case, 
array subscripting starts with element I. 



row 
row 1 
row 2 



column column 1 


column 2 column 3 column 4 


(0,0) 


(0,1) 


(0,2) 


(0,3) 


(0,4) 


(1,0) 


(1,1) 


(1,2) 


(1,3) 


(1,4) 


(2.0) 


(2,1) 


(2,2) 


(2,3) 


(2.4) 



Figure 8-1. Array A(2,4) With OPTION BASE 



column 1 column 2 column 3 column 4 



row 1 
row 2 



(1.1) 


(1,2) 


, (1,3) 


(1.4) 


(2.1) 


(2,2) 


.,(2,3) 


(2,4) 



Figure 8-2. Array (2,4) With OPTION BASE 1 
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ARRAY DECLARATION 

An array declaration states that an array with a 
specified name and dimension be allocated to a 
BASIC program. Arrays can be defined explicitly in 
a DIM statement (described In section 3) or Implic- 
itly through usage. Arrays require a DIM statement 
when a subscript value greater than 10 is needed. 
Using the DIM statement to dimension an array whose 
upper subscript Umit is less than 10 Is good pro- 
gramming practice and saves space. An array not 
previously defined by the DIM statement is implic- 
itly declared to have one dimension (10) when an 
element Is referenced by an array variable with one 
subscript; two dimensions (10,10) when an element 
is reference by an array variable with two sub- 
scripts; and three dimensions (10,10,10) when an 
element Is referenced by an array variable with 
three subscripts. 

The following example illustrates use of the DIM 
statement. 

DIM X1(50),X2(12,12),XS(6,6) 

This statement reserves space for: 

XI A one-dimensional numeric array with 51 
elements 

X2 A two-dimensional numeric array with 13 
by 13, or 169, elementii 

X$ A two-dimensional string array with 7 
by 7, or 49, elements 

Refer to section 3 for a description of the DIM 
statement and additional examples of usage. 



Matrices can be redimensloned cither implicitly or 
explicitly. To implicitly redimension a matrix, 
assign a new value by using MAT assignment or MAT 
arithmetic operations (described later in this 
section). To explicitly redimension a matrix, 
append a redimension specifier to matrix names in 
MAT READ or MAT INPUT statements or Include redi- 
mension specif iers in MAT functions (described 
later in this section). Figure 8-4 is an example 
of redimensionlng by using MAT READ. The DIM 
statement Initially dimensions array A as 3 by 2. 
When the program Is executed, MAT READ at Une 
number 130 rudimensions array A to 2 by 3. The 
MAT READ statement at line number 150 redimenslons 
the matrix to 1 by 5. 



100 OPTION BASE 1 




no DIM AO,2) 




120 DATA 1,2,3,4,5,6,1 


,2,3,4,5,6 


130 MAT READ A(2,3: 




140 HAT PRINT A; 




150 HAT READ A(1,5J 




160 MAT PRINT A; 




170 END 




1 prsduceb: 




! 

1 2 3 




4 5 6 




12 3 4 5 





Figure 8-4. Redimensioning Example 
Using HAT READ 



REDIMENSIONING 

Matrices can be redimensloned to change tlie number 
of elempnts in an array as long as the number of 
elements Is not greater than the total number of 
elements originally allocated. For example, a 3 by 
5 array can be redimensloned to 3 by 3 or 5 by 3, 
but not to 3 by 6 or 8 by 2. However, the number 
of dimensions cannot be changed. For example, a 
vector cannot be redimensloned to be a 2-dimensioiia] 
matrix, or a 2-dlmen8ional matrix cannot be redi- 
mensloned to a vector. 



MATRIX ARITHMETIC 

Although it is possible to construct programs to 
perform matrix arithmetic operations with the ordi- 
nary statements of the language, BASIC also pro- 
vides a set of statements explicitly for matrix 
operations. Table 8-1 identifies these statements 
and their effects. The matrix arltlimetic state- 
ments are described in the following text in the 
same order as they are presented in table 8-1. 



Figure 8-3 shows the formats for the redimension- 
ing specifiers. Format 1 is used to redimension 
a vector. Format 2 is used to redimension a 
2-dimensional array. In both cases, the numeric 
expressions are rounded to Integer values. 



1. 


Ine) 


2. 


<nei,ne2l 




ne liiiliiatRs nuinRric. constant, variable, or 




expression. 



Figure 8-3. Formats for Redimensioning 
Specifiers 



MATRIX ASSIGNMENT 

Matrix assignment is performed by replacing the 
elements of the matrix on the left side of the 
equals sign, with the corresponding elements of 
the matrix on the right side of the equals sign. 
Figure 8-5 shows the format for the matrix assign- 
ment statement. 



IVIAT m=m 

m Indicates numeric matrix identifiers. 



Figure 8-5. Matrix Assignment 
Statement Format 
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TABLE 8-1. MATRIX ARITHMETIC STATEMENTS 



Statement 



Matrix assignment 
Matrix addition 

Matrix subtraction 
Matrix multiplication 



Matrix scalar 
multiplication 



Example 



MAT Ml - M2 

MAT Ml = MZ + M3 

MAT Ml = M2 - M3 

MAT Ml = M2 * M3 
MAT Ml = (5) * M2 



Effect 



Assigns the elements of M2 to 
Ml. 

Replaces the elements of Ml 
with the sum of the elements 
of M2 and M3, 

Replaces the elements of Ml 
with the differences of the 
corresponding elements of 
M2 and M3. 

Replaces each element of Ml 
according to the usual rules 
of matrix algebra. 

Multiplies each element of 
M2 by 5 and places the prod- 
uct into Ml. 



To perform matrix assignment, m on the left side of 
the equals sign must contain the same number of 
dimensions as m on the right of the equals sign, 
and the total number of elements of m on the left 
stde of the equals sign must be equal to or greater 
than the total number of elements of m on the right 
of the equals sign. If this is not the case, pro- 
gram execution is terminated and the diagnostic 
MATRIX DIMENSION ERROR is displayed. 

Figure 8-6 illustrdtcs matrix assignment. The 
matrix READ statement reads fours into all elt>ment8 
of B, the matrix assignment statement at line 40 
assigns matrix B to matrix A, and the statement at 
1 Ine 50 prints the values of matrix A. 



100 OPTION BASE 1 

110 DIN AC2,2),B(2,2) 

120 DATA 4,4,4,4 

130 NAT READ B 

140 HAT A=B 

150 NAT PRINT A; 

160 END 



produces: 



4 4 
4 4 



Figure 8-6. Matrix Assignment Example 



MATRIX ADDITION 

Matrix addition is perforrapd by replacing the 
elements of the matrix on the left side of the. 
equals sign with the sum of the corrasponfl ing ele- 
ments of the two matrioes on the right side ol the 
equals sign. Matrix addition is only valid for 
numeric matrices. Figure 8-7 shows the format for 
matrix addition. 



MAT ni^=in2+nii3 

m Indicates numeric array identifier. 



Figure 8-7. Hatrix Addition Format 



When performing matrix addition, corresponding 
array dimensions on the right side of the equals 
sign must be identical. Hatrix mj^ must have the 
same number of dimensions as m2 and m3, and the 
total number of elements in mj must be greater 
than or equal to the total number of elements In 
""2 or m3. If the matrices are not conformable, 
program execution is terminated and a diagno.stic Is 
Issued. Also note that use of an operand as a 
result of a matrix addition operation is legal; 
for example, MAT mi=m2+mi is permitted. In 
figure 8-8, lines 30 through 60 produce results 
identical to the results of line 20. 



05 OPTION BASE 1 

10 DIN A(10,10),B<10,10),C(10,10) 

20 HAT A=B+C 

30 FOR 1=1 TO 10 

40 FOR J=1 TO 10 

50 LET A<I,J)=BCI,J)+C(I,J> 

60 NEXT J 

70 NEXT I 

99 END 



Figure 8-8. Matrix Addition Example 



MATRIX SUBTRACTION 

Mcitrix subtraction is performed by replacing the 
elements of the. matrix on the left side oC tliu 
equal .•; sign with the difference of the correspond- 
ing elements oE tlit two matrices on the riglit side 
of the equals sign. Figure 8-9 shows the format 
for matrix subtraction. 
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MAT ni^=m2-m3 

m Indicates numeric array identifier. 



Figure 8-9. Matrix Subtraction Format 



tfhen performing matrix subtraction, matrices m2 
and m3 must have Identical dinenslons; mj must 
have the same number of dimensions as m2 and 03; 
and the total number of elements In m^ must be 
greater than or equal to the number of elements In 
m2 or m3. If these requirements are not true, 
program execution terminates and a diagnostic 
is displayed. Use of an operand as a result 
of a matrix subtraction is legal; for example, 
MAT mi-mi-m2 is permitted. 



Figure 8-10 illustrates matrix subtraction. The 
instruction at line 50 causes each element of 
matrix C to be replaced by the difference of the 
corresponding elements of matrices B and A. Line 
60 prints the values for all three matrices (A, B 
and C). 



10 OPTION BASE 1 




20 DIH A(1,3),BC1,5l,Ct1,3) 




30 DATA 1,1,1,5,5,5 




40 HAT READ A,B 




50 MAT C=B-A 




60 MAT PRINT B,A,C 




70 END 




produces: 




5 5 


5 


1 1 


1 


4 4 


4 



Figure 8-10. Matrix Subtraction Example 



MATRIX MULTIPLICATION 

Matrix multiplication Is performed according to the 
usual rules of matrix algebra. Figure 8-11 shows 
the format for matrix multiplication. 



When performing matrix multiplication, the multi- 
plier and multiplicand matrices, m2 and m3, 
must have conformable d Imensions in the normal 
mathematical sense; otherwise, program execution is 
terminated and the diagnostic HAmiX DIMENSION ERROR 
is displayed. That is, the column dimension of 
02 must be the same as the rov dimension of m3. 
The result matrix, m^, can be the same matrix as 
"12 or m3. 



MAT mi=m2*ni3 

m Indicates numeric array identifier. 



Figure 8-11. Matrix Multiplication Format 

Figure 8-12 illustrates matrix multiplication. In 
the example, line 40 computes the products of 
matrices B and C and places the result Into matrix 
A. Line 30 prints matrices A, B, and C. The 
equation used to compute the clement A(l,l) Is as 
follows: 

B(l,l) * C(I,1) + BC1,2) * C(2,l) = 27 
CI * 7) + (2 * 10) = 27 



05 OPTION BASE 
10 DIH AC3,3^, 
20 DATA 1,2,3, 
30 HAT READ B, 
40 HAT A=B*C 
50 MAT PRINT B 
60 END 


1 
8(3,2) ,Ct2,3J 
4,5,6,7,8,9,10,11,12 
C 

,C,A 


produces: 




1 




2 


3 




4 


5 




6 


7 




8 9 


10 




11 12 


27 




30 33 


61 




68 75 


95 




106 117 



Figure S-12. Matrix Multiplication Example 



MATRIX SCALAR MULTIPLICATION 

Matrix scalar multiplication Is performed by re- 
placing the elements of the matrix on the left side 
of the equals sign with the corresponding elements 
of the matrix on the right side of the equals sign 
multiplied by a given value. Figure 8-13 shows the 
format. 



MAT 


m^-(ne1'm2 








ni 


Indicates numeric aiiay identifier. 






ne 


Indicates numeric constant. 


viiriable 


or 


expression. 



Figure 8-13. Scalar Multiplication Format 
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Figure 8-14 LlJustidLes. scalar mul tip! iciLion. 
Line 50 mulclplles each element of matrix A by 5 
and places the result back into matrix A. 



10 DIM 


A(1,1) 




20 OATf 


4,4,4,4 




30 HAT 


RFAD A 




40 HAT 


PRINT A 




50 HAT 


A=C5)*A 




60 HAT 


PRINT A 




70 END 






produce 


s: 




4 




4 


4 




4 


20 




20 


20 




20 



MATRIX CON FUNCTION 

This function causes all elements of the specified! 
matrix to be initialized to one. The formats for: 
the matrix CON function appear in figure 8-15. i 



1. MAT m=CON 

2. MAT ni==CON<ne) 

3. MAT m=C0iM(ne^,iie2) 

m Indicates numeric matrix identifier. 

ne Indicates a numeric constant, variable, or 

expression that evaluates to specific 
dimensions. 



Figure 8-14. Scalar Multiplication Example 



Figure 8-15. Matrix CON Function Format 



Format 1 of the matrix CON function returns a 
matrix of ones with the same dimension as m; format. 
2 returns a (nc by 1) vector; and format 3 returns 
a (iit'i by ne2) m/itrix of ones. 



MATRIX FUNCTIONS 

Tho matrix functions CON, IDN, iNV, TRN, ZER, and 
DET are used to manipulate matrices in specific 
ways. All of the matrix functions, except DET, 
must be used In matrix statements. DKT (a numeric 
function) can be used anywhere that a mathematical 
function can be used. Table 8-2 summarizes the 
matrix functions. 



Formats 2 and 3 of the matrix CON statement can be 
used to red Lmunslon the specified matrix m. How- 
ever, if redimensloning exceeds the number of 
Okitrlx elements or number of dimensions declared 
implicitly in m or by the DIM statement, program 
execution is terminated and the diagnostic MATRIX 
DIMENSION ERROR is displayed. 



TABLE 8-2. MATRIX FUNCTIONS 



Function 



Matrix CON function 
Matrix IDN function 

Matrix ZER function 
Matrix INV function 

Matrix TRN function 

Matrix DET function 



Effect 



Returns a matrix of ones. 

Returns an identity matrix (a 
square matrix with ones along 
the principle diagonal and zeros 
throughout the remaining matrix). 

Returns a matrix of zeros. 

Returns the inverse matrix of 
of the argument matrix (to tho 
right of the equals sign). 

Returns the transpose of tne 
argument matrix (to the right 
of the equals sign). 

Returns the determinant of the 
argument matrix (to the right 
of the equals sign) or the last 
inverted matrix. 



Usage 



MAT A = CON 
MAT A = IDN 

MAT C = ZER 
MAT A = INV(B^ 

r-lAT X = TRN(Y) 

LET A = DET(B; 
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Figure 8-16 shows an example of the matrix CON 
function. Line 10 declares storage for a 3 by 3 
matrix A whose subscript origin is 0. Line 20 
declares that the data table contains nine data 
values. These data values are read into matrix A 
by the MAT READ statement at line 30. Line SO, 
the matrix CON function, replaces the current 
matrix values with all ones. Both matrix values 
are shown in the printed output. 



10 DIM A(2,2) 




20 DATA 1,2,3,4,5,6,7,8,9 




SO HAT READ A 




40 HAT PRINT A 




SO MAT A=CON 




60 HAT PRINT A 




70 END 




P'-oduces: 




1 2 


3 


4 5 


6 


7 8 


9 


1 1 


1 


1 1 


1 


1 1 


1 



Figure 8-16. Hatrix CON Function Example 



MATRIX IDN FUNCTION 

This function causes the speclilud matrix to he 
inLti.n1 ized to an identity matrix (a matrix con- 
sisting of ones along the main diagonal and zeros 
elsewhere). Tlu- format for the matrix IDN state- 
ment appears In figure 8-17. 



1. 


MAT m IDN 


2. 


MAT mlDNlni.- 


3. 


MAT 111 IDN(nn.|.ni!2i 




ni Indiuitcs nuinuric nutrix idcntifiur. 




nu Inrliuiitus a numeric cun&t.int, vaiiabin ni 




expression thdt eviiluiitub to clesirnd 




dimensions. 







Figure 8-17. Matrix IDN Function Format 

Format 1 returns an identity matrix with the same i 
dimensions as m. Format 2 returns a vector; but, 
since the identity matrix must be square, format 2 
is valid only If ne=] . Format 3 retains an ne^^ 
by ne2 Identity matrix; nej must equal ne2. 

Formats 2 and 3 of the IDN function can be used to 
redimenslon the Identity matrix m. However, if 
redlmenslonlng exceeds the number of array elements 



and dimensions (originally allocated for m either 
Implicitly or In the DIM statement), program execu- 
tion terminates and the diagnostic HATRIX DIMENSION 
ERROR is displayed. Also, the IDN function cannot 
be iised to initialise an array that is not square 
(one with a different number of rows and columns). 
An attempt to initialize a non-square array with 
the IDN function terminates program execution and 
the diagnostic MATRIX DIMENSION ERROR is displayed. 

Figure 8-18 shows an example of the matrix IDN 
function. Line 10 declares storage for a 4 by 3 
matrix A. Line 20 declares that the data table Is 
to contain 12 values. Tliesu values are read into 
matrix A by the MAT READ statement at line 30. 
Line SO, the matrix IDN function, redimension 
matrix A to a 3 by 3 matrix and causes it to assume 
the value of an identity matrix. Both the original 
and identity matrix values are shown in tho printed 
output. 



10 DIM A(3,2) 

20 DATA 2,4,6,8,10, 

30 MAT READ A 

40 MAT PRINT A 

SO HAT A=IDN(2,2> 

60 MAT PRINT A 

70 END 


12,14,16, 


18 


,20,22,24 


produces: 












2 4 










6 


8 10 










12 


14 16 










18 


20 22 










24 


1 













1 
























1 



Figure 8-18. Hatrix IDN Function Example 



MATRIX ZER FUNCTION 

This function causes the specified matrix to be 
initialized to zeros. The formats for the matrix 
ZKR function are presented in figure 8-19. 



1. MAT ni=ZER 

2. MAT m=ZER(ne) 

3. MAT m=ZER(ne.|,ne2) 

m Indicates numeric matrix identifier. 

ne Indicates a numeric constant, variable or 

expression that evaluates to desired 
dimensions. 



Figure 8-19. Matrix ZER Function Format 
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Format 1 of the ZER Eunction returnR a matrix of 
zeros that havu tlii? same dimensloas as oi. Format 2 
returns a iie by I column vector of zeros. Format 3 
returas a nej by a&2 matrix of zeros. 

Formats 2 and 3 of the ZER function can redlmenslon 
the matrix m; however, if redimensioning exceeds 
the numbur of array elements or dimension!! origi- 
nally declared for m either implicitly or in the 
DIM statement, program execution termlndtes and the 
diagnostic MATRIX DIMENSION ERROR is displayed. 

In the example shown in figure 8-20, the MAT ZER 
Function redimensions matrix A from a 2 by 3 matrix 
to a 2 by 2 matrix and causes all elements of tlie 
matrix to assume the value of zero. Both condi- 
tions of matrix A are displayed in the printout. 
Note that the subscript origin is 0. 



MATRIX INV FUNCTION 

This function calculates the inverse of a matrix. 
Figure 8-21 illustrates its format. 

Matrix m in figure 8-21 is automjitically redimen- 
sioned to receive the result. If required; however, 
it must have been allocated originally with at 
least as many elements and dimensions as matrix m 
of the INV Junction. Otherwise, program execution 
terminates and the diagnostic MATRIX DIMENSION 
ERROR is displayed. Mso, matrix m must be a 
squ.ire matrix and cannot have more than 100 by 100 
elements. 

If the matrix m is singular or near singular, INV 
returns meaningK-ss results, and no diagnostic is 
issued. The. BET function (desi-.ribed later) must be 
used to ensure tliat the results of INV are valid; 
the results are valid only when the value of DET is 
not zero. 



10 DIH AC1,2) 

20 DATA 1,2,3,4,5,6 

30 MAT READ A 

40 MAT PRINT A 

50 HAT A=ZER(1,1) 

60 HAT PRINT A 

70 END 



produces: 



1 
4 






2 
5 






Figure 8-20. Matrix ZER Function Example 



MAT m=INV(m) 

m Indicates numeric matrix identifier. 



Figure 8-21. Matrix INV Function Format 

Figure 8-22 shows an example of the matrix IKV 
function. Line 10 declares storage for matrices A 
and B whose subscript origins arc 0. Line 20 
declares the data table of four values. Line 30 
reads the data table values into matrix A. Line 
50, the matrix INV function, causes matrix B to be 
replaced by the Inverse of matrix A. The printed 
output displays matrix A, the inverse of A, and the 
inverse times the original matrix. 



10 DIM A(1,1),BC1,1) 

20 DATA 5,6,7,8 

30 MAT READ A 

40 MAT PRINT A 

50 MAT B=INV(A) 

60 IF OET=0 THEN 90 

70 MAT PRINT B 

80 MAT A=B*A 

90 MAT PRINT A 

99 END 



produces: 



'SKIP TO END IF MAT A IS SINGULAR 



5 
7 

-4 
3,5 

1 




6 
8 

3 

-2.5 


1 



Figure 8-22. Matrix INV Function Example 
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MATRIX TRN FUNCTION 

This function causes matrix m to be transposed. 
The matrix TRN function format is presented in 
figure 8-23. 



MAT m=TRN(ni) 

m Indicates numeric matrix identifier. 



Figure 8-23. Matrix TRN Function Format 

Matrix m is redimcnsioned to receive the result, if 
necessary; however, it must have been originally 
allocated with at least as many dimensions as 
matrix m (to the right of the equals sign). Other- 
wise, program execution terminates and the diag- 
nostic MATRIX DIMENSION ERROR is displayed. If 
desired, m, on both sides of the equals sign, can 
be the same matrix. 

Figure 8-24 shows an example of the matrix TRN 
function. Llni' 10 declares storage for matrires A 
and B (both are 2-dimensional matrices). Line 20 
declares that the data table contains six values; 
line 30 reads the values into matrix A. Line 50, 
the matrix TRN function, causes each element of 
matrix B to he replaced by the transposed form of 
matrix A. Note that matrix B is automatically 
redimensioned. 



10 DIM AC1,2),B(3,3) 
20 DATA 1,2,3,4,5,6 
30 HAT READ A 
40 MAT PRINT A 
50 NAT B=TRN(A) 
60 MAT PRINT B 
70 END 



produces: 



Figure 8-24. Matrix TRN Function Example 



MATRIX DET FUNCTION 

The DET function returns the determinant of a 
matrix. DET can determine if the most recently 
inverted matrix was singular. (See IHV func- 
tion.) The format for the DET function appears 
in figure 8-25. 



1. 


DET 


2. 


DET(m) 




m Indicates numeric matrix identifier. 



Figure 8-25. Matrix DET Function Format 



When format 1 of the DET function is used, DET 
returns the determinant to the matrix most recently 
inverted by the INV function. References to DET 
when INV has not been invoked causes the program to 
terminate, and the diagnostic DET USED BEFORE INV 
is displayed. Repeated references to DHT, with- 
out corresponding references to INV, yield the 
same result each time. When format 2 uf DET is 
used, the function returns tlie determinant of the 
matrix. An example of the two formats Is shown in 
figure 8-26. 



10 OPTION BASE 1 

20 DIM AC2,2>,BC2,2) 

30 DATA 1,2,3,4,10,12,14,16 

40 MAT READ A,B 

50 MAT A=INV(A> 

60 MAT PRINT A,B 

70 PRINT "DETERMINANT OF A IS ";DET 

80 PRINT "DETERMINANT OF B IS ";DET(B) 

90 END 



produces: 




-2 


1 


1.5 


-.5 


10 


12 


14 


16 



DETERMINANT OF A IS -2 
DETERMINANT OF B IS -8 



Figure 8-26. Matrix DET Function Example 



MATRIX I/O 

Matrix I./O statements are used to input or output 
complete matrices. in general, the action of the 
matrix output statements can be simulated by using 
a group of output statements, each group of state- 
ments relating to only one row of the matrix. 
Matrix input statements can be simulated by using 
one regular INPUT that lists all of the elements of 
the matrix in the statement Input list. Table 8-3 
Identifies the matrix I/O statements. 
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TABLE 8-3. MATRIX I/O STATEMENTS 



Statement 



MAT WRITE 
MAT READ 

MAT INPUT 

MAT PRINT 

MAT PRINT USING 



Effect 



Writes matrix values to a 
file. 

Fills matrices with data from 
an internal data block or 
binary file. 

Fills matrices with data 
input from the terminal or 
from a file. 

Outputs matrix elements to 
the terminal or a file. 

Outputs matrix elements to 
the terminal or a file per 
the format specified by the 
image statement. 



Usage 



MAT WRITE #2,A,B$.C 



MAT READ #2,AJ,B.C 



MAT INPUT DJ.E.F, 



MAT PRINT A.BJ.C 



MAT PRINT USING 100, B 



MAT WRITE STATEMENT 

This statemenl is similar to the WRITE statement! 
(described in section 7). It causes data from! 
specified matrices to be written Into a binary file 
without individually referencing each member. Ele- 
ments are written in row order CA<0,0), A(0,l), 
A(0,2) and so forth). Files created by the MAT 
WRITE statement are in binary form and can only be 
read by the READ or MAT READ statement. Figure 8-27 
shows the format for the MAT WRITE st.itement. 



MAT WRITE #ne,mT,m2, . . . 

mi,m2, . . . Indicates numeric or string matrix identifiers. 

ne Indicates a file ordinal expressed as a 

numeric constant, variable, or expression. 



Figure 8-27. HAT WRITE Statement Format 

When the MAT WRITE statement is used to write 
strings on a file, one word of binary zeros follows 
the string data to indicate the end of the string. 
Incomplete words are padded with binary zeros. 



Figure 8-28 illustrates the MAT WRITE statement. 
Line 10 assigns the file ITEMFIL to ordinal 1, and 
line 20 declares space for a 2 by 4 matrix A whose 
subscript origin is 0. The MAT WRITE statement at 
line 50 causes matrix A to be written on the file 
[TEMFIL, and line 60 closes the file ITEMFIL. Refer 
to figure 8-30 in the MAT RFJVn statement descrip- 
tion (next topic) for a further il liL-sl rat ion of 
this example. 



10 FILE #1="ITEHFIL" 
20 DIM A (1,3) 

30 DATA 1,1.1,1.2,1.3,1,4,1.5,1.6,1.7 

40 MAT READ A 

SO MAT WRITE #1,A 

60 CLOSE #1 

70 END 



Figure 8-28. HAT WRITE Statement Example 
MAT READ STATEMENT 

This statement is similar to the READ statement 
(described in section 7). [t allows data to be 
read into the specified matrlcpR without individu- 
ally referencing each member. Elements are read by 
row from an internal data table created by the DATA 
sLateaunt, or from a binary file created by the 
WRITE or MAT WRITE statement. Figure 8-29 shows 
the format for the MAT READ statement. 



MAT READ 


ni'i,m2, . . . 


MAT READ 


#ne,m^,ni2, . . . 


m-j-mj' ■ ■ ■ 


Indicates numeric or string matrix identifiers. 
Subscripts denoting new dimensions can 
follow the matrix identifier. 


ne 


Indicates numeric constant, variable, or 




expression. 


Figure 


8-29. MAT READ Statement Format 
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If an executing MAT READ statement causes the 
internal data table (format 1) or binary file 
(format 2) to be exhausted before the specified 
matrix is filled, program execution Is terminated 
and the diagnostic END OF DATA or END OF DATA ON 
FILE is displayed. 

Any matrix in the MAT READ list can be redimen- 
sloned by specifying a redimenslon indicator with 
the array name. (See Redimcnsioning In this sec- 
tion. For example, MAT READ B(3,4) causes values 
to be read into matrix B and matrix B to be redl- 
mcnsioned to a 3 by 4 matrix (ussuming array base 
is one). RedimeusioiiLng o-innot require a greater 
number of total elements or dimensions than origi- 
nally allocated implicitly or in the DIM statement. 

Figure 8-30, an example oE the MAT RFjVD statement, 
is an extension of the example shown in figure 8-28 
for the MAT WRITE statemonf. Line 10 assigns tlie 
file name ITEMFIL to ordinal 1. Line 15 restores 
the file pointer to the beginning of the file, and 
line 20 declares a 2 by 4 matrix A and a 2 by 3 
matrix B. Note that the subscript origins arc 0. 
The M.4T READ statement at line 30 reads into matrix 
A the values originally written to the file in the 
MAT WRITE example. Line 40 prints matrix A. Line 
50 restores the file pointer to the beginning of 
the file. The MAT READ statement at lino 60 reads 
into matrix B six of the eight values originally 
written to the File In the MAT WRITE example. Lino 
70 prints matrix B, illustrating which values were 
read into B. Line 80 closes the file ITEMFIL. 



10 FILE #1 ='■ ITEMFIL" 

15 RESTORE #1 

20 DIM AC1,3),BC1,2) 

30 MAT READ #1,A 

40 HAT PRINT A 

50 RESTORE #1 

60 MAT READ #1,8 

70 MAT PRINT B 

80 CLOSE #1 

90 END 



produces: 




1 


1.1 


1.4 


1.5 


1 


1.1 


1.3 


1.4 



1.2 
1.6 





1.3 
1.7 



1.2 
1.5 



Figure 8-30. MAT READ Statement Example 



MAT INPUT STATEMENT 

The MAT IMPUT st.itement is similar to the INPUT 
statement (described in section 7). It permits 
matrices to be read in row order from a display 
format file or matrices to be entered from the 
terminal during program execution. Figure 8-3! 
shows the format for the MAT INPUT statement. 



MAT INPUT 


miJiio, ■ ■ 






li!iitiri(!r& 

Uilll 
Cll 


IWAT INPUT -=n.i,ni,.ni2, 

ni1,rn2, ■ ■ ■ ln(licrit«<; nunmiic 
Siibscriiits clenutini 
IuIIdw Ihc rndtrix 




ji string miitiix ii 
I nev/ (liniensKins 
ciLMitiiier. 


ne 


IniliiMtus nuniRni. 
cxpiebsion. 


jonstcint, 


Vill lillllU, 







Figure 8-31. HAT INPUT Statement Format 

When format 1 of MAT INPUT is used and the program 
is running interactively, a question mark is dis- 
played at iiie terminal prompting that the entire 
matrix be entered in row order (,A(0,0, A(0,1), 
A(0,2), and so forth). Each matrix element must be 
separated by a delimiter (see DELIMIT statement in 
section 7). If all the matrix elements do not fit 
on one input line or the entire matrix is not 
entered in one input response, the matrix elements 
can be entered one row at A time on separate input 
lines by terminating each partial input reply with 
a non-blank delimiter. If more data values are 
needed to fill tlie matrix than are supplied and the 
reply is not terminated by using a delimiter, the 
system prints NOT ENOUGH DATA, REKNTER OR TYPE IN 
MORE, fiillowed by another question mark. In these 
instances, either reenter the complete matrix or 
extend the previous reply by entering a non-blank 
delimiter followed by the additional matrix ele- 
ments. Figure 8-32 illustrates two ways of filling 
a 2 by 2 matrix of four data elements. 



Note that, particularly for string elements, tho 
input line can be extended beyund the width entered 
on the terminal. The line feed LF key or i on CDC 
713 terminals allows line continuation; this key is 
depressed in place of the carriage return key. The 
total line length is limited to 150 characters. It 
is not a delimiter .ind if a delimiter is required 
between entries on the two lines, insert the proper 
del irai ter . 

If an attempt is made to overfill a matrix with too 

many data elements, Llie system requests (with the 

message TOO MUCH DATA, RETYPE INPUT) that the 
entire matrix be reentered. 



If format 2 of the MAT INPUT statement Is used, the 
matrices arc read into the program from the display 
format File specified by ne . The matrix elements 
are read in row order (A(0,0), A(0,l), A(0,2), and 
so on). Data on the file must be dii.pl ay format 
and must have delimiters between values. 

A matrix can be redimensioned before the items are 
input by speciFylng a rediraension Indicator. (See 
Redimensioning in this section.) For example, MAT 
INPUT AS(2,3) redimensions the matrix A$ to a 2 by 
3 string matrix (assuming array base Ls one). 
Redimensioning canjiot require more than the total 
number of array elements or dimensions than origi- 
nally allocated to the array eitlxer implicitly or 
Ln the DIM statement. 
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100 OPTION BASE 
110 DIM A(2,2) 
120 HAT INPUT A 
130 HAT PRINT A 
140 END 



produces: 



? 2,2,2,2 
2 



produces the following when filled in two input responses: 



? 2,2 

NOT ENOUGH DATA, REENTER OR TYPE IN HORE AT 120 
? ,2,2 
2 2 



Figure 8-32. MAT INPUT Statement Example 



MAT PRINT STATEMENT 

The MAT PRINT statement causes matrlcus to be 
printed La row order by using the same formatting 
rules as for the standard PRINT or PRINT il*ne state- 
ments. The formats for the MAT PRINT st.itement 
appear in figure 8-33. 



1. MAT PRINT m, d in2 . 

2. MAT PRINT *ne, m, d 



d 



Indicates numeric or string matrix 
identifier. 

Indicates delimiter (comma or semi- 
colon); the final delimiter is 
optional. 

Indicates numeric constant, variable, 
or expression. 



Figure 8-33. MAT PRINT Statement Formats 



As shown in figure 8-33, the MAT PRINT statement 
formats each element of specified matrix m to the 
default specified output format (shown in PRINT 
formats, socLion 7), directs the output to the 
terminal for printing or to the file specified by 
ne, and positions the print meclianism according to 
the delimiter, d. The delimiter Is a terminator 
character that specifies the print zoning control 
for each element of the matrix. See section 7, 
under Print 7,oning. A blank line is automatically 
generated after each row. An additional blank line 
is printed to separate two arrays in the list. 



Each t'lement of the row is checked before printing 
to ensure that it fits on the print line. If it 
does not fit, the complete element is pl.iced on the 
next line. If it cannot fit on an empty line, it 
is brokun at the margin and written on as many 
Lines as necessary. Matrices are printed in row 
order. The print results can be affected by tlie 
terminal, lAF, or INTERCOM. tSee MARGIN statement, 
dcctlon 7.) See the MAT READ and MAT INPUT state- 
ments :or an example of the MAT PRINT statement. 
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MAT PRINT USING STATEMENT 

this statement is similar to the PRINT USING state- 
inent (described in section 7). The MAT PRINT USING 
|statpnent causes the matrices to be printed accord- 
ing to the image contained in the string expression 
fee or the statement at line In. (See figure 8-34.) 
Each row, as it Is printed, starts At the beginning 
of the image and always prints on a new line. 
Repetition of the Image, however, is possible 
within tho row. The delimiter appearing after the 
matrix Identifier determines the delimiter to he 
used between each element of the matrix, but not 
between rows. As in the PRINT USING statement 
(section 7>, the delimiters do not control print 
zoning, but do control whether or not a print item 
repeating the image should start a new line (,) or 
continue on the same line (;). 

A blank line is not printed after e;U'h row or after 
the last Line of the array. A blank line is printed 
to separate two arrays in the list. If all the 
elements of a row do not fit on one line, a break 
!.s made after the first line Is full even If this 
Is in the middle of an element. I'igure 8-TJ shows 
three program i-xatnpK-s of the MAT PRINT USING 
statement. 



Example 1 : 



090 OPTION BASE 1 

100 FILE #1="DATA1" 

110 OIH A(2,2),BO,4) 

120 DATA 1,2,3,4 

130 HAT READ A 

140 MAT PRINT USING "ROU Hit UK ",A 

150 HAT WRITE #1,A 

160 RESTORE #1 

170 MAT READ #1,B 

180 MAT PRINT USING 190,B 

190 : «# 

200 END 



produces: 



ROW 1 2 
ROW 3 4 

1 
2 
3 
4 



Example 2: 



090 OPTION BASE 1 






100 DIM A<3,3) 






110 FOR 1=1 TO 3 






120 FOR J=1 TO 3 






130 ACI,J)=I*J 






140 NEXT J 






150 NEXT I 






160 MAT PRINT USING ' 


■ HU 


",A; 


170 HAT PRINT USING 


• U 


",A 


180 END 







1. MAT PRINT USING In, mi d ni2 d . . . d 


MAT PRINT 


USING ne, m., d n>2 d . . . d 


2. MAT PRINT <ne. USING In, m^ d rig d . . . d 


MAT PRINT 


^ne USING ne, mi d m2 d . . . d 


mi.m2, ■ ■ • 


Indicates numeric or string matrix 
identifiers. 


d 


Indicates delimiter (comma or semi- 
colon); the final delimiter is 
optional. 


nc 


Indicates numeric constant, variable. 




or expression. 


In 


Indicates line number. 


ne 


Indicates string expression. 



Figure 8-34. MAT PRINT USING 
Statement Formats 



Figure 8-35. MAI PRINT USING Stateipent Example (Sheet 1 of 2) 
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produces: 



1 2 3 

2 4 6 

3 6 9 

1 
2 
3 
2 
4 
6 
3 
6 
9 



Example 3: 



080 OPTION BASE 1 

090 MARGIN 70 

100 DIM ASC2,2) 

120 HAT INPUT A$ 

125 HAT PRINT A$; 

130 MARGIN 30 

140 MAT PRINT A$; 

150 MARGIN 70 

160 MAT PRINT USING 170,A$; 

170 : 1titlt«tftl»UltttlinitlttHtltlflHtlttHHtttU«ltffifllltttllUlfttllUII 

produces: 



? "commutative rings and integral domains"," elementary properties of domains" 

NOT ENOUGH DATA, REENTER OR TYPE IN MORE AT 120 
? , "well-ordered principle"," -finite induction and Laws of exponents" 
COMMUTATIVE RINGS AND INTEGRAL DOMAINS exponents 

ELEMENTARY PROPERTIES OF DOMAINS 
WELL-ORDERED PRINCIPLE FINITE INDUCTION AND LAWS OF EXPONENTS 

COMMUTATIVE RINGS AND INTEGRAL 

DOMAINS 

ELEMENTARY PROPERTIES OF DOMA 
INS 

WELL-ORDERED PRINCIPLE 

FINITE INDUCTION AND LAWS OF 
EXPONENTS 

COMMUTATIVE RINGS AND INTEGRAL DOMAINS ELEMENTARY PROPERTIES OF DO 
MAINS 

WELL-ORDERED PRINCIPLE FINITE INDUCTION AND LAWS 

F EXPONENTS 



Figure 8-35. MAT PRINT USING Statement Example (Sheet 2 of 2) 
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DEBUGGING 



Often newly written programs do not operate 
correctly on the first attempt to execute them. 
They either stop with a run-time diagnostic (such 
as SUBSCRIPT ERROR AT 230) or run to completion but 
produce incorrect results. The process of iso- 
lating and removing errors or bugs In a program is 
referred to as debugging. 

BASIC itself provides some tools to help debug a 
program (PRINT statements and tracing). In addi- 
tion, a companion product, CYBER Interactive Debug 
(CID), provides a powerful interactive debug facil- 
ity. The choice of particular tools to use is 
determined by personal preference, mode of opera- 
tion (batch or Interactive), and availability. CID 
is the most powerful and easy-to-use tool; CID is 
not available at all sites. 



BASIC DEBUG FEATURES 

Three debugging aids or techniques that are 
available in BASIC are: Inserting PRINT state- 
ments, conditional tracing of program flow, and 
unconditional tracing. 



INSERTING PRINT STATEMENTS 

A common debugging technique is to temporarily 
Insert PRINT statements in a program. Output from 
these PRINT statements can indicate program control 
flow (what order statements are executed) and 
values of selected program variables at specific 
points in the program. However, these PRINT state- 
ments must be removed once the program is debugged 
and making any changes to the program (even rela- 
tively minor changes, such as removing temporary 
PRINT statements) provides the opportunity for 
introducing new errors. Refer to section 7 for the 
format and examples of the PRINT statement. 

Similarly when arrays are involved, the MAT PRINT 
statement can be used for debugging purposes. 
Refer to section 8 for the format and examples of 
using the MAT PRINT statement. 



1. REM TRACE,ALL 

2. REM TRACE,PART 

3. REM TRACE,NONE 



CONDITIONAL TRACE STATEMENT 

BASIC provides a special REM statement to control 
tracing of program flow. This statement is d 
remark, that has no effect on the program unless the 
DL (Debug Lines) option of the DB parjuneter Is 
selected when the program is compiled. (See DB 
parameter in section 12.) When the DL option is 
selected, this statemunt starts and stops the pro- 
gram trace mechanism. This trace mechanism prints 
a sequential list of the BASIC statements executed 
in the order the statements were executed. This 
information can be used to detei-mine the actual 
flow of control through the program. The formats 
of this conditional trace statement are shown in 
figure 9-1. 



Figure 9-1. REM TRACE Statement Formats 



The first format Ls REM TRACE, ALL. This format 
causes dynamic tracing (all executable statements 
are traced regardless of where they occur in the. 
source codo). The second format is REM TRACE, PART. 
This format causes static tracing (only those 
statements between REM TRACE, PART and the next REM 
TRACE, NONE are traced). The third format is R1;M 
TRACE, NONE. Tliis format suppresses Lraclngj it is 
tlie ilcfault setting for thu REM TRACE statement, 

Thi! following two points further explain the use of 
these statements : 

REM TRACE, ALL causes the message * AT nna to be 
output for every statement expcuted until a REM 
TRACE, NOSE statumcuL is executed (nnn is the 
line nuinbur). 

REM TRi\CE,PART causes the message * AT nnn to 
be output only for those statements lying 
physically between the REM TRACE, PART st.itemont 
and the next sequential REM TRACE, NONE state- 
ment. Execution of statements outside this 
pUysical range (for example, those executed 
with GOTO, GOSUB and function references) are 
not traced. The GOTO, GOSUB, and function 
reference statements do not cause tracing to be 
turned off; tracing resumes when control 
returns to statements within the physical range. 



Trace output is written on the file specified by 
the K parameter on the BASIC control statement. If 
the K parameter is not specified on the BASIC con- 
trol statement, trace output is written on the file 
OUTPUT. 



Although the REM TRACE statement does not provide 
information about program variable values (an 
advantage of using the PRINT statement), the REM 
TRACE statement has the advantage of not needing to 
be removed from the program once the tracing is 
complete. 



Figure 9-2 shows an example of REM TRACE, ALL, Exe- 
cutloa of the statements in this example produces a 
sequence list of all the executable statements In 
the order they were executed. Figure 9-3 shows an 
lexample using all three REM TRACE statements, REM 
|TRACE,PART does not trace the subroutine. REM 
jTRACE.ALL does trace the subroutine. 
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150 REM TRACE,ALL 


160 FOR X=1 TO 10 


170 LET X=X+1 


180 NEXT X 


190 END 


produces: 


* AT 


160 


* AT 


170 


* AT 


180 


* AT 


170 


* AT 


180 


* AT 


170 


* AT 


180 


* AT 


170 


* AT 


180 


* AT 


170 


* AT 


180 


* AT 


190 



Figure 9-2. REM TRACE,ALL Example 



If the TR (trace) option of the DB parameter is 
selected on the BASIC control statement when the 
program is compiled, the message * AT nnn is output 
for each executable line encountered during program 
execution. The nnn represents the line number of 
the executed statement. 

This debug feature does not require program 
modifications, not even insertion of REM TRACE 
statements. However, only a full trace of the 
entire program can be obtained. 



CYBER INTERACTIVE DEBUG 

The CYBER Interactive Debug (CID) facility is a 
companion to BASIC. CID permits external moni- 
toring and controlling of the execution of the 
program from an interactive terminal without making 
any changes to the program. The CID commands and 
features are only available if CID is installed in 
the system. CID commands and features can be used 
when the BASIC program is compiled in debug mode. 
The use and features of CID are described below. 
For further information, see the CYBER Interactive 
Debug reference manual. 



100 


PRINT "REM 


TRACE, 


PART BEING 


EXECUTED" 


110 


REM TRACE,PART 






120 


GOSUB 200 








130 


PRINT "REM 


TRACE,NONE BEING 


EXECUTED" 


140 


REM TRACE,NONE 






160 


GOSUB 200 








165 


PRINT "REN 


TRACE.ALL BEING 


EXECUTED" 


170 


REM TRACE,ALL 






190 


GOSUB 200 








195 


STOP 








200 


PRINT "SUBROUTINE 200" 




210 


RETURN 








240 


END 








produces: 








REM 


TRACE,PART 


BEING 


EXECUTED 




* 


KX 120 








SUBROUTINE 200 








* 


AT 130 








REM 


TRACE,NONE 


BEING 


EXECUTED 




SUBROUTINE 200 








REM 


TRACE, ALL BEING 


EXECUTED 




* 


AT 190 








* 


fVT 200 








SUBROUTINE 200 








* 


AT 210 








* 


AT 195 









Figure 9-3. REM TRACE Statement Example 



UNCONDITIONAL TRACE PARAMETER 

In addition to the conditional trace statements 
that can be included within the program, BASIC 
provides a parameter on the BASIC control statement 
that can be used to force program flow tracing to 
be printed no matter vhaZ statements are included 
in the program. 



The CID facility allows the following to be done: 

Suspend program execution when control reaches 
a predefined point (called a breakpoint). 

Suspend program execution when a particular 
event, such as a store into a specific variable 
or program termination, occurs (called a trap). 

Display and/or change the values of program 
variables while program execution is suspended. 

Restart program execution at the point of 
interruption or at some other point in the 
program. 



ENTERING AND EXITING THE CID 
ENVIRONMENT 

To execute a BASIC program under CID control, you 
must compile and execute the program in debug 
mode. Debug mode is turned on by using the system 
control statement DEBUG or DEBUG(ON). The DEBUG 
control statement must be entered before compiling 
and executing the program. When debug mode is on, 
the operating system and terminal can be used in 
the normal manner. 

When compiling the BASIC program, you can specify 
the parameter DB in the BASIC control statement. 
See section 12 for the options that can be selected 
using the DB parameter. DB=0 must not be speci- 
fied; if DB=0 is specified, the program will not be 
compiled for use with CID even if debug mode is 
turned on. 

A CID session is terminated by using the CID command 
QUIT. The QUIT command returns control to the 
operating system; however, the debug environment 
remains In effect until the system control state- 
ment DEBUG(OFF) is issued. DEBUG(OFF) should be 
used if subsequent debugging is not needed. 
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EXECUTING UNDER CID CONTROL 

A debug session Is a sequence of interactions 
between the programmer and CID that occurs while 
the object program is executing in debug mode. The 
session begins with the execution of the object 
program. Under the NOS/BE EDITOR or under the NOS 
BASIC subsystem, the session can be initiated with 
the RUN conmand. Under the NOS BATCH subsystem, 
the session can be initiated using the BASIC con- 
trol statement X, BASIC, I=lfn; this control state- 
ment compiles and executes the BASIC program on 
file Ifn. 

When the debug session begins, control transfers to 
an entry point in CID and the following message is 
issued: 

CYBER INTERACTIVE DEBUG 



The question mark prompts for input of a CID 
command. In response, enter a CID conmand and 
press the transmission key (RETURN on most termi- 
nals). CID processes the command and generates any 
appropriate output, such as a message or another 
prompt. 



REFERENCING BASIC LINE 
NUMBERS AND VARIABLES 

The following paragraphs explain the formats for 
referencing variables and line numbers in CID 
commands. 



L.n 



Indicates line number. 



Figure 9-5. Line Number Referencing Format 

An exception to this format is the GOTO command, 
which references line numbers in the same format as 
it does in BASIC statements. (See the GOTO command 
described in this section.) 

Example : 

GOTO 310 

RESUMING PROGRAM 
EXECUTION 

The CID commands GO, GOTO, and STEP can be used to 
resume the execution of a program. These commands 
are explained in the following paragraphs. 

GO COMMAND 

The GO command resumes program execution from the 
point at whlcK program execution was suspended. 
The format Is shown in figure 9-6. 



GO 



VARIABLES 

Program variables are referenced in CID commands in 
the same format as they are In BASIC statements. 
Simple and subscripted variables, full arrays, and 
substring addressing can be referenced. Variables 
referenced in CID commands must exist in the pro- 
gran; and execution must be suspended inside a 
function before formal parameters are known to CID. 

See figure 9-4 for examples. 




Figure 9-4. Variables Examples 



LINE NUMBERS 

Line numbers for CID coinnands are referenced with a 
special format not similar to BASIC. This format 
is shown in figure 9-5. 

Example: 

L.310 



Figure 9-6. GO Command Format 

When the GO command is entered, the program resumes 
execution from the last point of suspension and 
executes -until it reaches a breakpoint or trap. 
The GO command cannot be used after an END trap 
because execution is complete and cannot continue 
any further. 



GOTO COMMAND 

The GOTO command resumes execution of the program 
at a specified line number. This command has the 
same format as the BASIC statement GOTO. The 
format is shown in figure 9-7. 



GOTO n 
n 



Indicates line number. 



Figure 9-7. GOTO Conmand for CIO Format 

Example : 

GOTO 50 

The GOTO command causes program execution to 
continue at the specified statement line number 50. 
Execution proceeds until the program reaches a 
breakpoint or trap. 
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STEP COMMAND 



SET BREAKPOINT COMMAND 



The STEP command executes a specified number of 
lines. Execution begins where it was previously 
interrupted. The format is shown in figure 9-8. 



STEP n 


LINES 


or 




Sn 




or 




S 




n 


An irrteger that indicates the number of 
lines to be executed; optional. 



Figure 9-8. STEP Conmand Format 

If the n parameter is not specified, the value used 
for the previous STEP command is used; if there is 
no previous STEP command, the value 1 is used. 

A message is issued after the number of lines 
specified in the STEP cmmnand are executed. 
Figure 9-9 shows the format of the step message. 



•S LINE AT L.n 



The line number where execution is 
suspended. 



Figure 9-9. Step Message Format 

If a breakpoint or trap is reached before the 
specified number of lines are executed, the break- 
point or trap overrides the STEP command and 
terminates the STEP operation. 

Example : 

STEP, 7 

SETTING AND CLEARING 
BREAKPOINTS AND TRAPS 

The following commands allow specific breakpoints 
and traps to be set or cleared in the BASIC pro- 
gram. A breakpoint is a point within a program at 
which CID takes control. When program execution 
reaches a breakpoint, execution is suspended, a 
message is issued, and CID requests input of com- 
mands by displaying a question mark. Any number of 
commands can be entered once CID gains control. A 
breakpoint is set by using the SET BREAKPOINT com- 
mand and cleared by using the CLEAR BKEAKPOINT 
command . 

Traps are set to cause program suspension on the 
occurrence of a particular event. Traps are set by 
using the SET TRAP command and are cleared by using 
the CLEAR TRAP command. 



The SET BREAKPOINT command sets a breakpoint at a 
specific program line number. The format is shown 
in figure 9-10. 

See figure 9-11 for examples. 

A breakpoint remains set until it is explicitly 
cleared. Figure 9-12 shows the format of the 
breakpoint message displayed when the program 
reaches a breakpoint during execution. 

Example : 

*B #1, AT L.llO 



SET BREAKPOINT,L.n 


or 




SB.L.n 




n 


Indicates line number. 



Figure 9-10. SET BREAKPOINT Command Format 



SET BREAKPOiNT,L.120 
SB,L.150 



Figure 9-11. SET BREAKPOINT Examples 



*B #i, 
i 


AT 


L.n 

Indicates identifying ordinal for the 
breakpoint. 


n 




indicates line number or point in the 
program where the breakpoint is set. 



Figure 9-12. Breakpoint Message Format 



CLEAR BREAKPOINT COMMAND 

The CLEAR BREMFOINT command clears a breakpoint 
that exists at a specific line number. The format 
is shown in figure 9-13. 



CLEAR BREAKPOiNT,L.n 

or 
CB,L.n 



Indicates line number or point at which 
the breakpoint is set. 



Figure 9-13. CLEAR BREAKPOINT 
Conmand Format 
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See figure 9-14 for examples. 

The last example clears all of the breakpoints. 
Breakpoints can also be cleared by referring to the 
identification number, such as CB.jj'l. See the 
CYBER Interactive Debug reference manual for more 
details. 



CLEAR BREAKPOINT,L.120 

CB,L.150 

CB,* 



Figure 9-14. CLEAR BREAKPOINT Examples 



SET TRAP COMMAND 

The SET TRAP command is used to set a trap of a 
specified type for a specified range of applica- 
bility. The format is shovn in figure 9-15. 



When a trap event occurs, program execution is 
suspended, a message is issued, and CID requests 
commands. Any number of commands can be entered 
once CID is in control. Figure 9-16 shows the 
format of the trap message. 



There are many forms of the keyword tsrpe used in 
the trap coimaands. See the CYBER Interactive Debug 
reference manual for a complete list. Two important 
types are STORE and LINE^^ 



STORE traps can catch stores into any variable or 
range of variables; however, BASIC string pointers 
are sometimes manipulated without affecting the 
string to which they point, so extraneous STORE 
traps can occur for string variables. The source 
statement should be inspected to verify that the 
named string variable is actually being referenced. 
The first example in figure 9-17 shows an example 
of the STORE trap. 



SET TRAP,type^cope 

or 
ST ,type .scope 
type 



Indicates keyword describing the condi- 
tion that causes the trap. 



scope Indicates range of applicability. 



Figure 9-15. SET TRAP Command Format 



*T #i type AT n 

i Indicates identification ordinal for this 

trap. 

type Describes briefly the condition that 

caused the trap. 

n Indicates line in the program where 

execution was suspended. If IN, 
rather than AT, is specified, then 
execution is suspended inside, not 
before the indicated line. 



Figure 9-16. Trap Message Format 



SET TRAP,STORE,A(4,7) Trap occurs after any 
STORE in variable 
A(4,7). 



ST,LINE,L.100...L.200 



Trap occurs before any 
line in the range of 100 
to 200 is executed. 



Figure 9-17. SET TRAP Command Examples 



LINE traps cause a trap prior to execution of each 
statement in the specified range. For instance, in 
the second example of figure 9-17, a trap occurs at 
any statement from line 100 to line 200 so this 
tjrpe of trap enables program flow to be traced in a 
specific area. 



aEAR TRAP COMMAND 

The CLEAR TRAP command clears specific traps. The 
format is shown in figure 9-18. 

See figure 9-19 for examples. 

Traps can also be cleared by referring to the 
identification number, such as CT,#1 or by clearing 
all traps at once, CT,*. See the CYBER Interactive 
Debug reference manual for more details. 



CLEAR TRAP,type,scope 

or 

CT,type,scope 

type,scope Type and scope must be the same as 
those used when setting the trap. 



Figure 9-18. CLEAR TRAP Command Format 



CLEAR TRAP,LIIME,L.100...L.200 
CT,STORE,A(4,7) 



Figure 9-19. CLEAR TRAP Examples 
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DEFAULT TRAPS 

Three traps are on by default and cannot be 
cleared: END, ABORT, and INTERRUPT. The END trap 
occurs whenever the BASIC program reaches normal 
completion, which occurs when a STOP, END, or CHAIN 
statement is executed. Program execution can be 
resumed at a specific line with the GOTO command; 
the GO command cannot be used because the program 
has completed and cannot continue from these traps. 



PRINT output-list 




output-list 


List of any number of restricted 




arithmetic or 
separated by 
semicolons. 


string expressions; 
commas or 



Figure 9-20. PRINT Command for CID Format 



The END trap for the CHAIN statement causes 
execution to end at the point just before the next 
chained-to program is executed. Compilation and 
execution of the chained-to program is not auto- 
matic; enter the QUIT command in order to terminate 
the present CID session, then enter any necessary 
control statements in order to compile and execute 
the chained-to program. 



PRINT "THE VALUE OF B=";B 
PRINT A,A*A^+135,7,B(17,J) 
PRINT C$(1)(2:3) 



Figure 9-21. PRINT Command for CID Examples 



The ABORT trap occurs whenever the BASIC program 
terminates because of an error. If the program 
executes an ON ERROR statement before the trap 
occurs , a GO command causes execution to resume at 
the ON ERROR line. If the program does not execute 
an ON ERROR, execution cannot be resumed with a GO 
comnand; however, it can be resumed with the GOTO 
comnand. Note that the ABORT trap does not occur 
for interactive input errors and the normal BASIC 
recovery options still apply. 

The INTERRUPT trap occurs whenever the BASIC 
program is interrupted from the terminal. If ON 
ATTENTION is in effect, that is, if the program 
executes an ON ATTENTION statement before the 
interrupt is trapped, GO causes the program to 
begin executing at the ON ATTENTION line. If ON 
ATTENTION is not in effect, GO causes execution to 
resume at the point where it was interrupted. The 
GOTO command can be used to cause execution to 
restart at a particular line. 



DISPLAYING PROGRAM 
VALUES 

Three of the commands that allow program values in 
the BASIC program to be displayed are PRINT, MAT 
PRINT, and LIST, VALUES. The first two commands are 
similar to BASIC statements. 



PRINT COMMAND FOR CID 

The PRINT command is similar to the BASIC PRINT 
statement. It prints values of program variables 
or computed expressions. The format is shown in 
figure 9-20. 



MAT PRINT COMMAND FOR CID 

The MAT PRINT command is similar to the BASIC MAT 
PRINT statement. It prints complete 1-, 2-, or 
3-dimensional arrays. (The BASIC MAT PRINT state- 
ment prints only 1- or 2-dimeusional arrays.) The 
format is shown in figure 9-22. 

See figure 9-23 for examples. 

Arrays listed in the array list must exist in the 
BASIC program. Elements of the array are printed 
in row order with spacing between items controlled 
by the comma or semicolons (as with the PRINT com- 
mand). A blank line is output after each row and 
an extra blank line is output between matrices. 
The MAT PRINT command is separated from the next 
command on the same line by using two semicolons 
(as with the PRINT command). 



MAT PRINT array-list 

array-list List of one or more of 1-, 2- or 3- 
dimensional arrays; separated by 
commas or semicolons. 



Figure 9-22. NAT PRINT Command 
for CID Format 



MAT PRINT A,B 
MAT PRINT XI $ 



Figure 9-23. HAT PRINT Command 
for CIO Examples 



See figure 9-21 for examples. 

Variables used in the output list must exist in the 
program. Multiple semicolons must be used to sepa- 
rate the PRINT command from the next command on the 
same line (also true for the MAT PRINT conraand) . 
Expressions cannot contain references to functions 
or to the exponentiation operator. CID does not 
allow partial print lines. The trailing comma or 
semicolon is ignored in CID. Images, PRINT USING 
statements, and file ordinals cannot be used in CID. 



LIST VALUES COMMAND 

The LIST VALUES command lists values of all 
variables within the program. The format is shown 
in figure 9-24. 

The names and values of all variables, including 
arrays, are listed in alphabetical order. Formal 
arguments of user-defined functions are listed only 
if program execution was suspended inside and while 
executing the function DEF. 
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LIST VALUES 

or 
LV 



Figure 9-24. LIST VALUES Command 

CHANGING AND TESTING 
PROGRAM VALUES 

Tv«> conmands that can be used to change and test 
program values are the LET command and the IF com- 
mand. These commands are similar to the BASIC 
statements. 

LET COMMAND FOR CID 

The LET command Is similar to the BASIC LET 
statement. It assigns values to program vari- 
ables. The conmand can be used with simple and 
subscripted variables and substrings. The format 
is shown in figure 9-25. 

See figure 9-26 for examples. 

The variables referenced must exist in the BASIC 
program being debugged. Multiple assignments, 
references to functions, and use of the exponen- 
tiation operator are not allowed; all other arith- 
metic operators (+, -, *, and /) and the string 
concatenation operator can be used in the 
expressions . 



Sets of CID comnands can be predefined to 
execute automatically when a breakpoint or trap 
occurs . 

Breakpoints can be defined to occur every nth 
time through a loop. 

A debug session can be suspended so that 
operating system commands can be entered. The 
debug session can then be resumed. 

Sequences of commands can be saved on and read 
from files. 

Other commands include HELP, LIST, BREAKPOINT and 
LIST, TRAP. 

CID can be used interactively in ASCII mode only 
under NOS. CID can be used in normal mode under 
NOS and NOS/BE. See the CYBER Interactive Debug 
reference manual for further information regarding 
CID commands and features. 



LET nv=ne 

nv 

ne 

or 
LET sv=se 
sv 



Indicates numeric variable. 

Indicates restricted arithmetic expression. 



Indicates string variable. 

Indicates restricted string expression. 



Figure 9-25. LET Command for CID Format 



IF COMMAND FOR CID 

The IF command is similar to the BASIC IF statement. 
It controls the selection of CID commands based on 
a comparison of program variables or computed 
values. See the CYBER Interactive Debug reference 
manual for further uses of the IF command in debug 
mode. The format is shown in figure 9-27. 

The following is an example of the IF command: 

IF A<=B THEN PRINT A 

OTHER COMMANDS AND 
FEATURES 

There are many other CID features and commands. 
The following is a list of some features and 
commands not explained in this manual: 



LET A=A+45 

LET B$(3^)=A$ + "ABC" 
LET D$(3:6)="DEFG" 
LET F$(1)(4:6)="" 



Figure 9-26. LET Command for CIO Examples 



IF re 


THEN db 


re 


Indicates any BASIC relational expres- 
sion; variables must exist in BASIC 
program being debugged. 


db 


Indicates any CID or BASIC debugging 
command. 



Figure 9-27. IF Command for CID Format 
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TERMINAL OPERATION UNDER NOS 



10 



NOS Is the Network Operating System for CDC's 
CYBER 170, CYBER 70, and 6000 Series computer 
systems. NOS provides BASIC users with both a 
batch and an Interactive processing environment. 
BASIC can be accessed from a remote time-sharing 
terminal, such as a Teletype Model 33 or Model 35 
teletypewriter (TTY), or a CDC Model 713 CRT 
terminal . 

When accessing NOS from a remote terminal, BASIC 
programs can be entered and executed by using 
either the BASIC subsystem or BATCH subsystem when 
under the NOS Interactive Facility (lAF). Also, 
data files created under NOS can be built at the 
terminal through use of TEXT mode. Text Editor, or 
XEDIT. 

This section illustrates the use of the BASIC and 
BATCH subsystems, a method of creating data files 
at a terminal, and some tips on using the line 
editor when writing programs at a TTY or CRT 
terminal . 



For a detailed description of the NOS commands used 
in figure 10-1 and other available commands, see 
the Networks Interactive Facility reference manual 
or the NOS Time-Sharing User's reference manual. 
In figure 10-1, the program is saved as a file 
named EX4. The program in this file is now stored 
as an indirect-access permanent file that can later 
be accessed by use of the OLD command. (See 
figure 10-2. Responses entered are in lowercase.) 



Use the REPLACE command to store the changed 
program; this replaces the old program with the 
corrected program. For example, the following 
command stores an updated program in file EX4: 

REPLACE, EX4 

The updated file EX4 is lost if the session is 
logged off before storing the corrected version. 



I For a detailed description for all supported 
terminal usage, see the Networks Interactive 
Facility reference manual (NOS 1 sites). Volume 3 
of the NOS 2 reference set (NOS 2 sites), or the 
NOS Time-Sharing reference manual. For a detailed 
description of Text Editor or XEDIT usage, see the 
Text Editor reference manual or the XEDIT reference 
manual . 



ENTERING A PROGRAM 

The process for interactively entering a program 
into a file is shown in the examples that follow. 
To correct an existing syntax, semantic, or logic 
error, enter the line number that contains the 
error, type in the corrected line, and press the 
carriage return key. To delete a line, enter the 
line number and press the carriage return key. To 
correct an error while typing a line, backspace n 
characters by pressing the backspace key or by 
holding down the control key and pressing H once 
for each incorrect character; then type the correct 
information. For additional control key informa- 
tion, refer to the NOS Network Products Interactive 
Facility reference manual, the NOS Time-Sharing 
User's reference manual, and the operator's guide 
for a specific terminal. 



BASIC SUBSYSTEM 

When in the BASIC subsystem under lAF (or TELEX), a 
BASIC program can be written at a TTY or CRT termi- 
nal, and the program can be edited or executed 
interactively. The program in figure 10-1 was 
created and run at a terminal under lAF and the 
BASIC subsystem. Responses entered are in lower- 
case; the carriage return key is pressed after 
typing in each response. 



BATCH SUBSYSTEM 

The batch subsystem provides batch control statement 
capability from the terminal. It enables control 
statements to be typed at the terminal; otherwise, 
control statements must be entered through a card 
reader at the central site or must be entered from 
a remote batch terminal that calls the statements 
from a procedure file or includes the statements in 
a submitted Job. 

BASIC can be run interactively in the batch 
subsystem. The BASIC control statement in the form 
X, BASIC is issued to call the BASIC compiler. All 
options of the BASIC control statement described in 
the section on Batch Operations are available when 
BASIC is run interactively in the batch subsystem. 

The program contained in file SUM (figure 10-3) was 
written during a previous terminal session, rfiile 
in the BASIC subsystem, and saved with the SAVE 
command. The BATCH command requests the batch 
subsystem, and the X,BASIC(I=SUM) command requests 
the BASIC compiler to compile and execute the 
program found in file SUM. 



USING DATA FILES 

To create a data file under NOS 1 or NOS 2, specify 
the name of the new file and enter the TEXT com- 
mand. The TEXT command permits the file to be 
created without sequence numbers. If, after the 
file is created, corrections, additions, or dele- 
tions are required, enter EDIT or XEDIT and use 
Text Editor or XEDIT commands. (For a complete 
description of Text Editor or XEDIT commands, see 
the Text Editor reference manual or the XEDIT 
reference manual.) 
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/basic -«- 



OLD, NEW, OR LIB FILE: new,ex4-«- 
READY. 

10 print "type a number" 

20 input X 

25 Let f=1 

30 -for i=1 to X 

40 let f=f*i 

50 print "factorial ";x,"is ";f 

60 goto 10 

70 end 

list-* - 

10 PRINT "TYPE A NUMBER" 

20 INPUT X 

25 LET F=1 

30 FOR 1=1 TO X 

40 LET F=F*I 

50 PRINT "FACTORIAL ";X,"IS ";F 

60 GOTO 10 

70 END 

READY. 

run ^ — 



Request BASIC subsystem. 
Create new file named EX4. 



FOR WITHOUT NEXT AT 30-*- 
BASIC COMPILATION ERRORS 



RUN COMPLETE. 
45 next i 
24 if x=0 then 70 
list-* 



]■ 



READY. 

run -*— 



TYPE A NUMBER 

? 3— 

FACTORIAL 3 
TYPE A NUMBER 
? -« 



IS 6 



RUN COMPLETE. 

save,ex4 -^ 

READY. 



Enter BASIC statements. 



List file EX4. 



■Compile and execute program. 
Program contains an error. 



10 PRINT "TYPE A NUMBER" 
20 INPUT X 

24 IF X=0 THEN 70 

25 LET F=1 

30 FOR 1=1 TO X 

40 LET F=F*I 

45 NEXT I 

50 PRINT "FACTORIAL ";X,"IS ";F 

60 GOTO 10 

70 END 



Correct error by entering more BASIC statements. 
List file EX4. 



■Compile and execute program again. 
Input 3 to executing program. 
Input to executing program. 
Make file EX4 permanent. 



Figure 10-1. BASIC Subsystem Under NOS 
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o'-d,ex4-^— — — Make file EX4 accessible. 

READY. 
List-^ — List program. 

10 PRINT "TYPE A NUMBER" 
20 INPUT X 

24 IF X=0 THEN 70 

25 LET F=1 

30 FOR 1=1 TO X 

40 LET F=F*I 

45 NEXT I 

50 PRINT "FACTORIAL ";X,"IS ";F 

60 GOTO 10 

70 END 

READY. 

'■"" "* ■ Compile and execute program. 

TYPE A NUMBER 

? 6 

FACTORIAL 6 IS 720 

TYPE A NUMBER 

? 

RUN COMPLETE, 
bye -«- _ Log off. 



Figure 10-2. OLD CoMand Under NOS 



''atch-* £nter the BATCH subsystem. 

RFL,0. 

/get, sum 

/list,f=sui» 

10 INPUT N 

20 PRINT TAB(2);"INTEGER","SUM" 

30 LET S=0 

40 FOR 1=1 TO N 

50 LET S=S+I 

60 PRINT TAB(5);I,S 

70 NEXT I 

80 END 

EOI ENCOUNTERED, 
/rewind, SUB 
REWIND,SUN. 

/x,basic(i=sum)-« — Conplle and execute program on file SUM. 

? 10 
INTEGER SUN 

1 1 

2 3 

3 6 

4 10 

5 15 

6 21 

7 28 

8 36 

9 45 

10 55 



Figure 10-3. Program Executed Interactively Under BATCH Subsystem 
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Under NOS 2, data files also can be created In a 
two step process. First of all, the data, with 
line numbers. Is entered into a file. The line 
numbers allow the use of the in-line editing com- 
mands. When all the data is correct, the in-line 
edit command WRITEN will copy all the data from the 
line numbered file, excluding the line numbers, to 
the file specified in the command. (See appendix I 
for further explanation of the in-line editing 
commands.) 

In figure 10-4, the first data file is created 
using the two step process. The data is initially 
entered into file TCLIENT using the AUTO mode. {In 
AUTO mode, line numbers are supplied by the system.) 
Using the line numbers as a reference, the data is 
corrected. When the data has been corrected, the 
WRITEN command Is used to write the data, without 
line numbers, to file CLIENT. File CLIENT is then 
made permanent using the SAVE command. 

The second data file is created using the TEXT 
command and Inserting the data line by line. Each 
line ends by pressing the carriage return key. 
TEXT Mode is terminated by using the user break 1 
or 2; see the Network Products Interactive Facility 



reference mantial (NOS 1 sites) , Volume 3 of the 
NOS 2 reference set (NOS 2 sites), NOS Time-Sharing 
User's reference manual, and the operator's guide 
for a specific terminal. After terminating TEXT 
mode, file UPDATE is made permanent under its 
respective name by the using the SAVE command. 

Later, local copies of the files are made by using 
the GET command In order to make them accessible to 
the BASIC program. For additional file handling 
Information, see appendix D. 



RENUMBERING BASIC LINES 

In the BASIC subsystem, the BESEQ command re- 
sequences BASIC programs and automatically updates 
all line references. The format of the RESEQ com- 
mand is shown In figure 10-5, and an example of 
this command is illustrated in figure 10-6. 

For additional Information, see the NOS Time- 
Sharing User's reference manual, the Network 
Products Interactive Facility reference manual 
(NOS 1 sites), and Volume 3 of the NOS 2 reference 
set (NOS 2 sites). 



new,t client 

READY, 
ascii -• 



READY, 
auto.-* 



00100 J. Brown, 1422 East St,charge no 1111,510.00 
00110 R.Apple,3434 Chery St, charge no 2211,222.22 
00120 N.Redi,7896 Algo Ave,charge no 1660,133.98 
00130 -^ 



]■ 



♦TERMINATED* 
alter, 110,/Chery/Cherry/ 



00110 R.AppLe,3434 Cherry St,charge no 2211,222.22 

READY. 
writen,cMent -^ 



READY. 

save, client 
READY. 



new, update -« 

READY, 
text 

ENTER TEXT MODE. 




EXIT TEXT MODE. 



■Establish a new file named TCLIENT. 
•Activate ASCII mode. 



•Activate automatic line number 
generation. 

■Enter data into file TCLIENT. 

-Enter user break to stop line number 
generation. 

• Correct date. 



Write all data in file TCLIENT 
(excluding line numbers) to file 
CLIENT. 



-Make file CLIENT permanent. 
■Establish new file UPDATE. 



Enter data into file UPDATE. 
Enter user break to exit text mode. 



Figure 10-4. Using Data Files Under NOS (Sheet 1 of 2) 
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READY, 
save -^ 



READY, 
new, test -•- 



READY. 



■Make file UPDATE permanent. 
Establish a new file named TEST. 



auto -^ — ■ . 

00100 file #1="CLIENT" 
00110 file #2="UPDATE" 
00120 restore #1 
00130 restore #2 
00140 for 1=1 to 3 
00150 input #1,a$,b$,c$,d 
00160 input #2,s 
00170 let x=d+s 

00180 print tab(2);a$;tab(12);b$;tab(32);c$;tab(52) ;"BALANCE=$"-x 
00190 next i ^ ,>■. 

00200 end 

00210 — - 

♦INTERRUPTED* 

♦TERMINATED* 

get, client 



-Activate .automatic line number 
generation. 



Enter BASIC program into file TEST. 
•{Line numbers are supplied by 
system.) 



-Enter user break to stop line number 
generation. 



READY, 
get, update 

READY, 
run -^ 



Make data files local. 



•Compile and execute program. 



J.BROWN 1422 EAST ST 
R.APPLE 3434 CHERRY ST 
N.REDI 7896 ALGO AVE 

RUN COMPLETE. 



CHARGE NO 1111 
CHARGE NO 2211 
CHARGE NO 1660 



BALANCE=$ 520.56 
BALANCE=$ 242.75 
BALANCE=$ 147.76 



Figure 10-4. Using Data Files Under NOS (Sheet 2 of 2) 



RESEQ,fln,ii 



Indicates new line number of the first statement in the file; maximum size is 
five digits; if omitted, the default is 00100. 

Indicates increment to be added to nn; default value is 10. 



Figure 10-5. RESEQ Command Format 
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/basic -* ■ 

OLD, NEW, OR LIB FILE: old,ex4 - 

READY, 
list-*— 

10 PRINT "TYPE A NUMBER" 
20 INPUT X 

24 IF X=0 THEN 70 

25 LET F=1 

30 FOR 1=1 TO X 

40 LET F=F*I 

45 NEXT I 

50 PRINT "FACTORIAL ";X,"IS ";F 

60 GOTO 10 

70 END 



READY, 
reseq - 



READY, 
list-^ 



Enter BASIC subsystem. 
Make file EX4 accessible. 



List BASIC program (file EX4). 



00100 PRINT "TYPE A NUMBER" 

00110 INPUT X 

00120 IF X=0 THEN 00190 

00130 LET F=1 

00140 FOR 1=1 TO X 

00150 LET F=F*I 

00160 NEXT I 

00170 PRINT "FACTORIAL ";X,"IS ";F 

00180 GOTO 00100 

00190 END 



■Resequence file EX4. 
List resequenced file. 



READY. 



Figure 10-6. RESEQ Command Example 
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The Network Operating System/Batch Environment 
(NOS/BE) permits multiple-user access to CDC's 
CYBER 170, CYBER 70, and 6000 Series computers. 
From a remote terminal, the INTERCOM commands and 
directives can be used to enter and execute BASIC 
programs interactively, to create and submit BASIC 
programs for batch execution, and to create data 
files to be accessed by BASIC programs. The remote 
terminal can be any teletypewriter (TTY) or CRT 
supported by NOS/BE. 

This section describes and illustrates the creation 
of BASIC programs for interactive processing; a 
method of creating data files to be accessed by a 
BASIC program; and the utility for renimibering 
BASIC programs. For a complete description of Text 
Editor commands, and remote terminals supported by 
NOS/BE, see the INTERCOM Version 5 reference manual. 
Creation and submission of BASIC programs for batch 
processing is described in the section on Batch 
Operations. 



line, back space n characters by pressing the back- 
space key or by typing CONTROL H, n times, and 
enter the correct information, or erase the entire 
line by pressing CONTROL X. The CONTROL key must 
be held down vAiile the H or X key is pressed. To 
correct an existing line, reenter the line number 
and type the correct information. To delete an 
existing line, type DELETE, line number. If an 
entered line exceeds 150 key strokes, it is trun- 
cated and a message is displayed at the terminal. 



INTERACTIVE BASIC 
TERMINAL SESSION 

A BASIC program can be entered, edited, and exe- 
cuted interactively from a CRT or TTY terminal. 
Figure U-l was created and run at a TTY termi- 
nal. Responses entered are in lowercase. Press 
the carriage return key, (§) , after typing in each 
response. 



ENTERING A PROGRAM 



When creating a BASIC program that is to be run 
interactively or submitted for batch execution, 
first enter text edit mode. Text edit mode can be 
entered at any time after the login sequence is 
completed by typing EDITOR and the carriage return 
key after the system prompt: 

COHMAND- 

The system editor responds with two consecutive 
periods, indicating text edit mode is in effect. 
After the EDITOR command, enter the following 
command (after the periods): 

..FORHAT, BASIC @ 



This command establishes a special BASIC program 
environment. The maximum line length is estab- 
lished at 150 characters. BASIC line numbers serve 
as EDITOR sequence numbers, and EDIT with SEQUENCE 
CREATE, ADD, or RESEQ becomes illegal. Once speci- 
fied, the BASIC format environment remains in 
effect for the duration of the terminal session or 
until the one of the following is specified: a 
FORMAT without parameters, or a FORMAT with a 
COMPASS, FORTRAN or COBOL parameter (such as 
FORMAT. COBOL). 

Once the FORHAT command is accepted (apparent by 
two periods displayed on the next line following 
the command), enter program text in one of the fol- 
lowing two forms: line number (one space) text 
(for the BASIC format) or line number = text (In 
other formats). If an error is made **iile typing a 



USING THE BASIC 
COMMAND INTERACTIVELY 

Basic can be run interactively using the full capa- 
bility of the BASIC control statement, described in 
section 13, by performing the following steps: 

1. Create the BASIC program under EDITOR. 

2. Save the program by entering: 

SAVE, If n 

For a program created in BASIC format 

SAVE,lfn,NOSEQ 

For a program created in other than 
BASIC format 



3. To leave EDITOR, type in END. 

4. Connect required files to terminal by entering: 

CONNECT, lfni,lfn2,... 

Normally the J and K files on the BASIC command 
(default INPUT and OUTPUT) should by connected. 

5. Compile and execute the program by entering: 

BASIC(I=lfn,...) 

An example of these command parameters is shown in 
figure 11-2. BASIC command parameters are described 
in the section on Batch Operations. 



19983900 a 



11-1 



CONTROL DATA INTERCOM 5.1 
DATE 06/25/80 
TIME 14.30. 50 

PLEASE LOGIN 
login 

ENTER USER NAME-xxx 
y^^jl)^iiiSsJi ENTER PASSWORD- 



06/25/81 LOGGED IN AT 15.35.15. 
WITH USER-ID 4K 
EQUIP/PORT 63/073 



LOGIN CREATED 06/25/81 TODAY IS 06/25/81 



Login procedure. 



COMMAND- editor. 
..format /basic -> 



Calls EDITOR. 
Requests BASIC format. 



..10 rem this program computes interest payments 

20 print "enter total amount of loan" 

21 input a 

22 if a<=0 then 200 

26 print "enter interest percentage" 

30 input j 

35 let j=j/100 

40 print "enter total number of years" 

45 input n 

50 print "enter number of payments per year" 

55 input m 

60 let n=n*m 

65 let i=j/m 

70 let b=1+i 

75 let r=a*i/(1-1/b**n) 

79 amount per payment =$$$$#.## 

80 :total interest =$$$$$#.#« 

81 print using 79,r 

82 print using 80,r*n-a 
88 print 

94 : interest app to prin $ balance $ 

95 print using 94 
100 let l=a*i 
110 let p=r-l 
120 let a=a-p 

130 print using 135, l,p,a 

135 -.mn.m m«.m mutn.m 

140 if a>=r then 100 

150 print using 135, a*i,r-a*i 

155 print 

160 print using "last payment =$$$#. ##",a*i+a 

170 goto 20 

200 end 

run,basic -^ 



Enters BASIC program line-by-line. 



ILLEGAL STATEMENT AT 79 
NON-IMAGE REFERENCED AT 81 
BASIC COMPILATION ERRORS 



..79 : amount per payment =$$$$#. <NV -«e- 
run,basic -^ '■ 



Compiles and executes program. 



BASIC issues diagnostic. 



Corrects error. 

Compiles and executes program again. 



Figure 11-1. Interactive EMSIC Terminal Session (Sheet 1 of 2) 
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ENTER TOTAL AMOUNT OF LOAN 

75000 

ENTER INTEREST PERCENTAGE 

?11 

ENTER TOTAL NUMBER OF YEARS 

?2 

ENTER NUMBER OF PAYMENTS PER YEAR 

?6 

AMOUNT PER PAYMENT = $467.97 

TOTAL INTEREST = $615.66 



INTEREST 


APP TO PRIN $ 


BALANCE $ 


91.67 


376.31 


4623.69 


84.77 


383.20 


4240.49 


77.74 


390.23 


3850.26 


70.59 


397.38 


3452.88 


63.30 


404.67 


3048.21 


55.88 


412.09 


2636.12 


48.33 


419.64 


2216.48 


40.64 


427.34 


1789.14 


32.80 


435.17 


1353.97 


24.82 


443.15 


910.82 


16.70 


451.27 


459.55 


8.43 


459.55 





LAST PAYMENT =$467.97 
ENTER TOTAL AMOUNT OF LOAN 
?0 



Program asks for input and generates output. 



.save,basprog -^ — 
. store, basprog -«- 
■ list, all, sup -^ — 



Saves edit file in local file BASPROG. 

Makes BASPROG a permanent file. 

Lists edit file without sequence numbers. 



10 REM THIS PROGRAM COMPUTES INTEREST PAYMENTS 

20 PRINT "ENTER TOTAL AMOUNT OF LOAN" 

21 INPUT A 

22 IF A<=0 THEN 200 

26 PRINT "ENTER INTEREST PERCENTAGE" 

30 INPUT J 

35 LET J=J/100 

40 PRINT "ENTER TOTAL NUMBER OF YEARS" 

45 INPUT N 

50 PRINT "ENTER MJNBER OF PAYMENTS PER YEAR" 

55 INPUT M 

60 LET N=N*M 

65 LET I=J/M 

70 LET 8=1+1 

75 LET R=A*I/(1-1/B**N) 

79 : AMOUNT PER PAYMENT =$$$$#.## 

80 : TOTAL INTEREST =$$$$$#,## 

81 PRINT USING 79,R 

82 PRINT USING 80,R*N-A 
88 PRINT 

94 INTEREST APP TO PRIN $ BALANCE $ 

95 PRINT USING 94 
100 LET L=A*I 
110 LET P=R-L 
120 LET A=A-P 

130 PRINT USING 135, L,P,A 

135 :###.## MM.m m»»n.im 

140 IF A>=R THEN 100 

150 PRINT USING 135, A*I,R-A*I 

155 PRINT 

160 PRINT USING "LAST PAYMENT =$$$#.##",A*I+A 

170 GOTO 20 

200 END 



Figure 11-1. Interactive BASIC Terminal Session (Sheet 2 of 2) 
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COHHANO- editor 

..fornat,basic 

..100 print "sample program" 

save,ex1 

..end 

COMHAND- connect, input, output 

COHMAND- basic(i=ex1,0 

EX1 BASIC 3.5 81027 

100 PRINT "SAMPLE PROGRAM" 



SAMPLE PROGRAM 



06/25/81 16.08.25. 



PAGE 



Figure 11-2. BASIC Command Parameters Under NOS/BE 



USING DATA FILES 



Data files to be used by a BASIC program can be 
created under EDITOR. To create data files accept- 
able to the BASIC program, select a format; the 
format must be a format other than BASIC. In the 
BASIC format, line numbers are part of the text and 
cannot be removed. 

Data is entered one line at a time In line 
number=text format. After the entire file is 



created, save the file (file becomes local file) 
vd.thout sequence numbers by using the SAVE,lfn,NOSEQ 
command. EDITOR line numbers are stripped uhen the 
SAVE command with no sequence number option (NOSEQ) 
is selected. To edit a file that was saved without 
sequence numbers, enter the EDIT,lfn,SEQ command. 
The SEQ parameter causes an EDITOR line number to 
be appended to each line of text. An example of 
using data files under NOS/BE is illustrated in 
figure 11-3. 



COMHAND- editor 

..format,fortran -^ 

..create 

100=j.brown,U22 east st,charge no 1111,500.00 

110=r. apple, 3434 cherry st, charge no 2211,222.22 

120=h. red i, 7896 algo ave,charge no 1660,133.98 

130== 

..save,client,noseq -^ 

..create 

100=10 

110=20 

120=30 

130== 
. . save,update,noseq 
..delete,all -^ 



.form at, basic 



Chooses a format other than BASIC 
for data. 

Creates and places data in edit 
file; the line numbers are supplied 
by EDITOR. The equals sign termi- 
nates input. 

Saves edit file as local file 
CLIENT without sequence numbers. 



Deletes contents of edit file. 
Chooses BASIC format for program. 



..5 file #2="update" 

10 file #1="client" 

20 restore #1 

30 restore #2 

40 for i=1 to 3 

50 input #1,a$,b$,cS,d 

60 input #2,s 

70 let x=d+s 

80 print tab(2);a$;tab(12);b$;tab(32);c$;tab(52);"balance=$";x 

90 next i 

100 end 

run, basic -^ 



J. BROUN 1422 EAST ST 
R.APPLE 3434 CHERRY ST 
H.REDI 7896 ALGO AVE 



CHARGE NO 1111 
CHARGE NO 2211 
CHARGE NO 1660 



BALANCE' 
BALANCE: 
BALANCE: 




■ save, test -«- 



..end -*- 
COMNAND- 



Creates a BASIC program. 



Executes the program. 



Program output. 



Saves the program as local file 

TEST. 

Exits EDITOR. 



Figure 11-3. Using Data Files Under NOS/BE 



11-4 



19983900 H 



RENUMBERING BASIC LINES 

The BRESEQ command provides a means of resequencing 
the line numbers In a BASIC local file. Line num- 
ber references in the BASIC program are automati- 
cally updated. The format for the BRESEQ command 
is shown in figure 11-4. When only one parameter 
is specified, it is assumed to be the starting line 
number for the new file, and the default Increment 
value (10) is used. 



An example of the BRESEQ command and reloading of 
the resequenced file is shown in figure 11-5. 



BRESEQ^fn^tart,incr 

If" Indicates filename of the local file to 
be resequenced. 

start Indicates new line number to be 

assigned to the first line in the file. 

■nc Indicates increment to be added to 
nn; default value is 10. 



Figure 11-4. BRESEQ Command Format 

The BASIC file must exist as a local file and can- 
not be the local name for an attached permanent 
file. To resequence a permanent file, copy the 
file and assign a unique filename. This can be 
accomplished by the use of the COPY command or by 
loading the file into an EDIT file and then using 
the SAVE command. 

The BRESEQ command affects only the specified local 
file and not the edit file. If further modifica- 
tions are to be performed, the resequenced file 
must be reloaded into the EDITOR edit file by using 
the following directive; 

EDIT, filename 



COMMAND- editor 

..format,basic 

..5 print "type a positive number" 

10 input a 

50 if a<0 then 80 

60 print using 71, a 

71 :+### is positive 

75 stop 

80 print a;" is negative, try again" 

100 goto 10 



save,ex 

..breseq(ex, 10,10) 
..edit, ex 
..list, all, sup 



00O10 PRINT "TYPE A POSITIVE NUMBER" 

00020 INPUT A 

00030 IF A<0 THEN 00070 

00040 PRINT USING 00050, A 

00050 :+### IS POSITIVE 

00060 STOP 

O0O70 PRINT A;" IS NEGATIVE, TRY AGAIN" 

00080 GOTO 00020 



Figure 11-5. BRESEQ Command Example 
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A batch job includes a user-written program, 
associated data, and control statements organized 
as separate logical records. A batch job can be 
input through a card reader at the central site, 
input from a remote batch terminal, invoked from a 
procedure, or, if the batch job is stored on a file 
or created during an interactive terminal session, 
it can be entered into the batch queue from the 
Interactive terminal. 



This section describes the general structure of a 
batch job, the BASIC control statement parameters, 
and the procedure for creating and submitting a 
batch job under NOS or NOS/BE. Figure 12-1 shows 
the control statements for a batch job under NOS 
and figure 12-2 shows the control statements under 
NOS/BE. The BASIC statement can be used to compile 
and execute your program, or you can use the B op- 
tion on the BASIC control statement to place the 
object code on a file. Figures 12-1 and 12-2 place 
the object code on the file LGO, then load and 
execute the file LGO. 



Job statement 



ACCOUNT 
statement 

BASIC 
statement 



LGO. 



7/8/9 



Specifies job name, and optionally, 
the memory and time requirements, 
priority, and other information. 

Specifies accounting information 
for NOS/BE. 

Calls BASIC compiler. If the B option 
is specified, the object code is written 
on the specified file; otherwise, it is 
written into memory and executed 
immediately. 

Leads and executes the binary file 
LGO. If B = LGO is not specified 
on the BASIC control statement, omit 
this statement. 

Indicates end-of -record. 



Figure 12-2. Job Structure Under NOS/BE 



Job statement 



USER and 

CHARGE 

statements 

BASIC 
statement 



LGO. 



7/8/9 



Specifies job name, and optionally, 
the memory and time requirements, 
priority, and other information. 

Specifies accounting information 
for NOS. CHARGE might be 
optional at your site. 

Calls the BASIC compiler. If the B 
option is specified, the object code is 
written on the specified file; other- 
wise, it is written into memory and 
executed immediately. 

Leads and executes the binary file 
LGO. If B = LGO is not specified 
on the BASIC control statement, 
omit this statement. 

Indicates end-of-record. 



Figure 12-1. Job Structure Under NOS 



Both compile-to-memory (no B option on control 
statement) and compiling to a binary file (using 
the B option) are allowed on NOS and NOS/BE. An 
example of a compile-to-memory job deck for use 
under NOS is shown in figure 12-3; an example for 
use under NOS/BE is shown in figure 12-4. An 
example of compiling a BASIC program to a binary 
file and then loading and executing that file under 
NOS is shown in figure 12-5; an example for use 
under NOS/BE is shown in figure 12-6. 

Information on entering a job from an interactive 
terminal can be found in the Network Products 
Interactive Facility reference manual (NOS 1 sites). 
Volume 3 of the NOS 2 reference set (NOS 2 sites), 
the XEDIT reference manual for NOS, and in the 
INTERCOM Version 5 reference manual for NOS/BE. 

A 6/7/8/9 statement specifies end-of-information 
(end-of-deck) . A complete description of the BASIC 
control statement follows. Refer to the NOS or 
NOS/BE reference manual for a detailed description 
of these and other control statements. 



DECK STRUCTURE 

Compile-to-memory enables you to compile and 
execute a BASIC program without loading a binary 
file. Thus, you need only specify the BASIC con- 
trol statement in order to compile and execute the 
program, and you need not and must not specify the 
B option. 



BASIC CONTROL STATEMENT 

Programs submitted for batch processing must 
include a BASIC control statement. This control 
statement calls the compiler and is formatted as 
follows : 

BASIC(pi^....p^) 
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Data 
Record 



Program 
Record 



Control 

Statement 

Record 




USER Statement 



JOB Statement 



Figure 12-3. BASIC Compile and Execute Job Under NOS 



Data 
Record 



Program 
Record 



Control 

Statement 

Record 




''ACCOUNT Statement 



'JOB Statement 



Figure 12-4. BASIC Compile and Execute Job Under NOS/BE 
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Data 
Record 



Program 
Record 



Control 

Statement 

Record 




CHARGE Statement 



USER Statement 



JOB Statement 



Figure 12-5. BASIC Compile to Binary File, Load, and Execute Job Under NOS 



Data 
Record 



Program 
Record 



Control 

Statement 

Record 




Figure 12-6. BASIC Compile to Binary File, Load, and Execute Job Under NOS/BE 
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The simplest form of the BASIC control statement is: 

BASIC. 

This control statement specifies that the BASIC 
program on file INPUT is to be compiled and exe- 
cuted. A source listing is produced on file OUTPUT 
unless the control statement was issued from a ter- 
minal. A relocatable binary file Is not produced. 
The parameters (pj ....p^) associated with this 
control statement permit the selection of the 
following parameter types: 

Compiler listable output options 

Compiler input options 

Compiler binary options 

Program execution options 

I Tables K-1 through K-4 in appendix K list available 
control statement parameters under the appropriate 
category, and describe their use. Some control 
statement parameters can have multiple values asso- 
ciated with them. Multiple values are separated by 
slashes and are cumulative. 

The following examples illustrate some combinations 
of control statement parameters and the following 
paragraphs discuss possible options. 

Compile and Execute 

BAS1C(B=SAM,G0) 

The above control statement compiles the pro- 
gram found on file INPUT (I parameter default), 
places the compiler binary output on file SAM 
(B=SAM) , and loads and executes the compiled 
program (GO). Execution- time output is written 
on file OUTPUT (K parameter default). Compile- 
time errors prevent execution and, when detec- 
ted, are written to file OUTPUT (E and EL 
parameter default). A source list is created 
on file OUTPUT (L parameter default and LO 
parameter default) unless it is assigned to a 
terminal. When under NOS, source listing is 
not written when the program is in Interactive 
mode (default L value is zero) because file 
OUTPUT is automatically associated with the 
terminal. 

ASCII Compile and Execute 

BASIC(AS,I=PR0G3) 

The AS parameter specifies that the source code 
found in file PR0G3 is encoded in ASCII charac- 
ters and that data produced by the BASIC 
program is in the ASCII character set. The 
program is corapiled-to-memory and executed 
immediately (B and GO parameter defaults). A 
source listing Is produced on file OUTPUT un- 
less it is assigned to a terminal (L parameter 
default). On NOS, the source code of the pro- 
gram must be in ASCII 6/12 characters. On 
NOS/BE, the source can be in either display 
code (6-bit) characters or in ASCII 8/12 
characters. 



Compile, Execute, and List 

BASIC(I-SOURCE,L=LIST) 

This control statement compiles-to-memory and 
executes; compiler input (source) is on file 
SOURCE. Listable compiler output is written on 
file LIST. Source listing is specified by the 
LO parameter default. Error diagnostics are 
written on file LIST (default of E parameter). 
Source code and data do not contain ASCII 
characters. 

Compile and Execute with Listing Options and 
Controls 

BASIC(I=TESTP,EL=r,LO=O,PD=8,PS=20) 

The compiler input (source code) is on file 
TESTP (I=TESTP) and the program is compiled and 
executed (default B and GO parameters). 
Compile-time errors are written on file OUTPUT. 
However, warning diagnostics are suppressed 
(EL=F). Also, a source and object listing is 
written on file OUTPUT (default L parameter and 
L0=0). Print density of file OUTPUT is set to 
8 (PD=8). ROUTE (DISPOSE on NOS/BE) the file 
OUTPUT to a device that can print 8 lines per 
inch. Page size for the printed output file is 
set at 20 lines per page (PS=20). 



REM LIST STATEMENT 

The REM LIST statement controls the source code 
listing produced by the BASIC compiler. The format 
of the REM LIST sCatcanent is shown in figure 12-7. 



1. REM LIST,NONE 

2. REM LIST,ALL 



Figure 12-7. REM LIST Statement Format 

REM LIST, NONE inhibits all Eurtiier source code 
lisl'lng until a REM LIST, ALL statement is executed, 
which causes listing of the source code to resume. 
Both statements art- priTted by BASIC to i>crrait you 
to si'i- where the source code Listing was suppressed. 

Tne REM LIST statement Is effective only when the 
source list option (L parameter or L and LO param- 
eters) is activated via the BASIC control statement. 
!<■ Lhe source list -jption is off when a REM LIST 
statement is encountered, REM LIST is treated like 
a REM stdlument (a comment). Figure 12-8 illus- 
trates the REM LIST blatomunt. 



BATCH PROCESSING FROM A 
TERMINAL 

BASIC programs can be created at a terminal and 
submitted for batch processing. This is accom- 
plished by setting up the program in a Text Editor 
file that Includes control statements. 
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For the program: 



10 LET J=10 

20 REM LIST^NONE 

30 PRINT J 

40 LET S=J*.07 

50 REM LIST,ALL 

60 PRINT S 



the 


compi ler 


-generated source I 


isti 


ng is: 


1 


DONE 


BASIC 


3.5 


81208 





10 
20 
50 
60 
70 


LET J =10 
REM LIST,NONE 
REM LIST,ALL 
PRINT S 
END 







81/08/13. 16.27.26. PAGE 1 



Figure 12-8. REM LIST Statement Example 



NOS 

Figure 12-9 shows an example of a terminal session 
where a job Is created and submitted for batch 
processing. 



/new,guide 

/100 /job 

120 user,xxxxxxx,xxx. 

130 charge,xxxx,xxxxxxx. 

150 basic. 

151 dayfile,prog. 

152 repLace,prog. 

153 exit. 

154 dayfile,prog. 

155 replace^prog. 
160 /eor 

170 /noseq 
180 let a=304 
190 Let b=403 
200 Let t=a*b 
210 print t 
220 end 
250 /eof 
submit,guide,b 

10.01.57. SUBMIT COMPLETE. 
/enquire,jn=bcp 

ACLIBCP IN INPUT QUEUE. 



JOBNAME IS ACLIBCP 



Figure 12-9. Batch Processing From a 
Terminal Under NOS 1 

The /JOB directive indicates that the file is to be 
reformatted for batch processing. Some defaults 
indicated by the directive are: 

Remove sequence numbers. 

Remove internal EOR and EOF marks (converts 
/EOR and /EOF found in this deck to end-of- 
record and end-of-file, respectively). 



See the Network Products Interactive Facility 
reference manual (NOS 1 sites), Volume 3 of the 
NOS 2 reference set (NOS 2 sites), or the NOS 
Time-Sharing User's reference manual (Reformatting 
Submit File) for remaining directive descriptions. 
The options of the BASIC control statement are 
available to the interactive user when using the 
batch subsystem. 



NOS/ BE 

To send a batch Job to NOS/BE from a remote termi- 
nal, first enter EDITOR, as described in Terminal 
Operation under NOS/BE. You can then issue the 
CREATE command to construct the program statements 
to be processed. When using CREATE, a FORMAT com- 
mand need not be specified, but if one is, the 
format cannot be BASIC. 

The job must Include the NOS/BE control statements, 
along with the BASIC program. Each control state- 
ment and BASIC statement is entered on a separate 
line. A line with *EOR indicates the place in the 
deck where an end-of-record mark is to be inserted; 
when the EDITOR command SAVE is issued, the *EOR is 
transformed into an actual end-of-record mark. A 
typical deck setup is shown in figure 12-10. 

When entering BASIC statements (under a format 
other than BASIC), the EDITOR sequence numbers are 
distinct from the BASIC line numbers and must be 
specified separately. In figure 12-10, 610 is the 
EDITOR sequence statement number generated by the 
system, and 100 is the BASIC line number input from 
the terminal. Once this is accomplished, the file 
can be modified by using EDITOR commands and can be 
saved by using the SAVE, If n, NOSEQ form of the SAVE 
command. 

To submit a batch job created under EDITOR, save 
the edit file without sequence numbers, then submit 
the saved file to the batch input queue by using 
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CONNAND-editor 
..create -^ 



100=job statement.-'^ 



■Creates the file. 
Control statements (lines 100-600). 



500=basic. 



600=*eor 
610=100 input X. 



620=110 if x=0 then 190 



680=170 print "factorial";x;"is";f 

690=180 goto 110 

700=190 end 

710=*eor -^ 



BASIC statements (lines 610-700). 



., s, test job, ns- 



End of BASIC source record; optional if no succeeding information. 

End CREATE mode. 

Saves job in file named TESTJOB with no sequence line numbers. 



Figure 12-10. Batch Processing From a Terminal Under NOS/BE 



the BATCH or ROUTE command. The following are two 
types of processes for submitting a job into file 
TESTJOB for batch execution; results are automati- 
cally printed at the central site. 

SAVE .TESTJOB .NOSEQ 
BATCH , TESTJOB , INPUT 
or 

SAVE , TESTJOB .NOSEQ , 
ROUTE. TESTJOB.DC= IN. 



Optionally, the job can be submitted for batch 
processing with the results directed to the sub- 
mitting terminal for inspection. If acceptable, 
the job can be printed at the central site. Figure 
12-11 shows an example of printing a batch job. 



Refer to the INTERCOM Version 5 reference manual 
for additional details and examples concerning 
these commands. 



BATCH,TESTJOB,INPUT,HERE Submits the job. 

Allow time for batch job to complete. 
FILES Lists file names so you can identify remote output file Ifn created by the job. 



BATCH,lfnT,LOCAL 



PAGE,lfnT,L 



Makes remote output file local to terminal. 

Prepares to display contents of file Ifn. The L is optional to display ASCII 
coded file. 



When prompted with READY . . . enter 1 to see the first page and + to see each 
additional page. Enter E or END to exit from the PAGE mode. 



BATCH,lfn,PRINT,id 



Submits the file to the batch print queue with user identification id. 



'^The remote output file name consists of the first five characters from the job statement (job name) and two characters 
generated by the system. 



Figure 12-11. Printing a Batch Job 



I 12-6 



19983900 K 



CHARACTER SETS 



Each computer has its own character set, which 
includes a collection of graphics (letters, digits, 
and special symbols) that the computer recognizes. 
Associated with each graphic of a character set is 
a number called a code. The code represents the 
character within the computer. Computers differ In 
their codes as well as their graphic sets, so in 
order to permit intercomputer communication, the 
American Standard Code for Information Interchange 
(ASCII) has been established. The ASCII character 
set includes all letters (uppercase and lowercase), 
digits, and many special symbols. The characters 
used in BASIC are taken from the ASCII character 
set. Table A-1 lists the full ASCII character set. 

Any one of several character sets can be used on 
CDC CTfBER and the 6000 Series computers. These 
character sets include CDC 63- and 64-character 
sets, ASCII 63- and 64-character sets, and ASCII 
128-character set. Differences in character sets 
occur In either graphics (CDC or ASCII), or the 
number of characters (63 or 64 and normal or 
128-ASCII). Graphic differences are a function of 
the terminal or printer that is used; some devices 
use CDC symbols; others use ASCII symbols. These 
differences do not affect the BASIC program pro- 
vided the programmer realizes that all BASIC char- 
acters are defined in terms of ASCII codes. When 
using CDC character set devices, the programmer 
must use CDC symbols equivalent (same internal 
code) to ASCII symbols required by BASIC. Table A-2 
lists ASCII and CDC character sets so that equiva- 
lent sjrmbols can be easily determined; for example, 
the ASCII # is equivalent to the CDC s . 

Differences in internal representations of char- 
acters can have an effect on programs and program 
results. Differences in program results can only 
occur when a program is developed on a 63-character 
set system, then run on a 64-character set system, 
or vice versa, and the program uses the OPTION 
COLLATE NATIVE statement and the normal (not ASCII) 
character set. Normally, however, there is no 
problem because computer systems operate either 
with a 63- or 64-character set system and do not 
switch between character sets. Even if one of the 
character set disparities exists, there Is a prob- 
lem only if the program uses string data that 
contain the characters % (percent) and : (colon). 
The character % is not available in a 63-character 
set system; the character : has a numeric code in 
a 64-character system, but a numeric code 51 (633) 
in a 63-character set system. As a result, for a 
program in normal mode that uses the OPTION COLLATE 
NATIVE statement, the relation ":BCD"<"ABCD" is 
true in a 64-character set system, but false in a 
63-character system. 



CHARACTER USAGE 
RESTRICTIONS 

If operating with the 64-character set in normal 
mode, it is advisable to restrict the use of the 
colon, as follows: 

Never use the colon at the end of a string. 

Do not use multiple colons (:::) because they 
could be interpreted as the end of the string 
or end of the line. 



Do not use a colon at the end of a line or on a 
line by itself. 



Do not use :A, :B, :D, :E, or :H at the end of 
a terminal output (PRINT) line because it is 
Interpreted by the operating system as a 
terminal command. Other colon and letter com- 
binations, :L, :F, :G, and :I, could be misin- 
terpreted depending on the carriage control at 
the beginning of a terminal PRINT line. 



NOS ASCII 128-CHARACTER 

SET 

NOS enables the BASIC programmer at an ASCII code 
terminal to make use of the ASCII 128-character 
set. (See table A-1.) This character set, «4iich 
includes lowercase letters, special symbols, and 
device control characters, is only available when 
the user's terminal and program are in ASCII mode. 
A terminal is switched into ASCII mode by entering 
the ASCII command. The terminal Is returned to 
normal mode by entering the NORMAL command. (Refer 
to the Network Products Interactive Facility refer- 
ence manual (NOS 1 sites). Volume 3 of the NOS 2 
reference set (NOS 2 sites), or the NOS Time- 
Sharing User's reference manual). Under the BASIC 
subsystem, the BASIC compiler and the BASIC program 
automatically operate In ASCII mode when the termi- 
nal Is in ASCII mode. In order for the compiler 
and program to handle the ASCII 128-character set 
in batch mode, the AS parameter must be explicitly 
specified. 
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In order to provide 128 characters, some characters 
must be represented as 12-bit instead of 6-bit 
characters. The 6-blt characters are distinguished 
from the 12-bit characters by using the 6-bit codes 
74g and 768 ^^ escape codes to Indicate that 
the next six bits are actually part of this 12-bit 
character. This coding method is referred to as 
the 6/12 or extended display code. When operating 
in ASCII mode, the BASIC compiler assumes that all 
data files contain 128-ASCII characters, so display 
code 74g and 76g are Interpreted as escape code 
characters; they are never characters by themselves. 



NOS/BE ASCII 128-CHARACTER 
SET 

NOS/BE provides an ASCII 128-character set, as 
listed in table A-1. This character set Includes 
the symbols, uppercase and lowercase letters, and 



control characters that are available when the 
terminal operates in ASCII mode. 

In NOS/BE, the terminal is switched to ASCII mode 
only when directed from within the user program. 
There is no ASCII command available under NOS/BE. 
To specify ASCII mode, include the AS parameter 
option in the BASIC control statement. Once the 
program switches the terminal to ASCII mode, the 
ASCII mode remains in effect until the program 
terminates. 

In order to provide 128 characters, each character 
is represented by 12 bits (the eight rightmost bits 
in a 12-bit byte). If a BASIC program is run in 
ASCII mode, all associated data files must be in 
8/12 ASCII code. NOS/BE does not use the 6/12 dis- 
play code. BASIC converts all 8/12 characters to 
6/12 characters so that only 6/12 characters are 
available internally. On output, BASIC converts 
the 6/12 characters back to 8/12 characters. 



A-2 
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TABLE A-1. EXTENDED CHARACTER SETS 



BASIC 
Character 



BASIC 
Character 
Abbrevia- 
tion 



BASIC 
Decimal 
Codet 



Display 

Code 
(6/12-Bit 

Octal) 



ASCII 
Code 
(7-Bit 
Octal) 



ASCII 

Code 

(7-Bit 

Hexadecimal) 



BASIC 
Character 



BASIC 
Character 
Abbrevia- 
tion 



BASIC 
Decimal 
Codet 



Display 

Code 

(6/12-Bit 

Octal) 



ASCII 
Code 
(7-Bit 
Octal) 



ASCII 

Code 

(7-Bit 

Hexadecimal) 



A 
B 
C 
D 

E 
F 
G 
H 

J 
K 
L 
M 
N 
O 
P 
Q 
R 
S 
T 
U 
V 

w 

X 

y 

z 



1 

2 
3 
4 
5 
6 
7 
8 
9 
■t- 



SP (space) 



# 

( 

1 

%§l 
" (quote) 
(underline)! 

I 

& 
(apostrophe) 

? 

< 

> 



; (semicolon) 



UCA 
UCB 
UCC 
UCD 
UCE 
UCF 
UCG 
UCH 
UCI 
UCJ 
UCK 
UCL 
UCM 
UCN 
UCO 
UCP 
UCQ 
UCR 
UCS 
UCT 
UCU 
UCV 
UCW 
UCX 
UCY 
UCZ 



QUO 
UND 



LCA 
LCB 



65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
43 
45 
42 
47 
40 
41 
36 
61 
32 
44 
46 
35 
91 
93 
37 
34 
95 
33 
38 
39 
63 
60 
62 



97 
98 



oo" 

01 

02 

03 

04 

05 

06 

07 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 

45 

46 

47 

50 

51 

52 

53 

54 

55 

56 

67 

60 

61 
62 

63 

64 

65 

66 

67 

70 

71 

72 
73 

74 (escape 

code) 

75 

76 lescape 

code) 

77 

7600 

7601 

7602 



null 

101 

102 

103 

104 

105 

106 

107 

110 

111 

112 

113 

114 

115 

116 

117 

120 

121 

122 

123 

124 

125 

126 

127 

130 

131 

132 

060 

061 

062 

063 

064 

065 

066 

067 

070 

071 

053 

055 

052 

057 

050 

051 

044 

075 

040 

054 

056 

043 

133 

135 

045 

042 

137 

041 

046 

047 

077 

074 

076 



073 



141 
142 



41 

42 

43 

44 

45 

46 

47 

48 

49 

4A 

4B 

4C 

4D 

4E 

4F 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

5A 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

2B 

2D 

2A 

2F 

28 

29 

24 

3D 

20 

2C 

2E 

23 

SB 

6D 

25 

22 

5F 

21 

26 

27 

3F 

3C 

3E 



61 
62 



DEL 
NULttt 

iH 

-rx 

ETX 
EOT 
ENQ 
ACK 
BEL 

BS 

HT 

LF 

VT 

FF 

CR 

SO 

SI 
DLE 
DC1 
DC2 
DC3 
DC4 
NAK 
SYN 
ETB 
CAM 

EM 
SUB 
ESC 

FS 

GS 

RS 

US 



•^(circumflex) 

:§§ 



\ 



LCC 

LCD 

LCE 

LCF 

LCG 

LCH 

LCI 

LCJ 

LCK 

LCL 

LCM 

LCN 

LOO 

LCP 

LCD 

LCR 

LCS 

LCT 

LCU 

LCV 

LCW 

LCX 

LCY 

LCZ 

LBR 

VLN 

RBR 

TIL 

DEL 



99 


7603 


143 


100 


7604 


144 


101 


7605 


145 


102 


7606 


146 


103 


7607 


147 


104 


7610 


150 


105 


7611 


151 


106 


7612 


152 


107 


7613 


153 


108 


7614 


154 


109 


7615 


155 


110 


7616 


156 


111 


7617 


157 


112 


7620 


160 


113 


7621 


161 


114 


7622 


162 


115 


7623 


163 


116 


7624 


164 


117 


7625 


165 


118 


7626 


166 


119 


7627 


167 


120 


7630 


170 


121 


7631 


171 


122 


7632 


172 


123 


7633 


173 


124 


7634 


174 


125 


7635 


175 


126 


7636 


176 


127 


7637 


177 





7640 


ODD 


1 


7641 


001 


2 


7642 


002 


3 


7643 


003 


4 


7644 


004 


5 


7645 


005 


6 


7646 


006 


7 


7647 


007 


8 


7650 


010 


9 


7651 


Oil 


10 


7652 


012 


11 


7653 


013 


12 


7654 


014 


13 


7655 


015 


14 


7656 


016 


15 


7657 


017 


16 


7660 


020 


17 


7661 


021 


18 


7662 


022 


19 


7663 


023 


20 


7664 


024 


21 


7665 


025 


22 


7666 


026 


23 


7667 


027 


24 


7670 


030 


25 


7671 


031 


26 


7672 


032 


27 


7673 


033 


28 


7674 


034 


29 


7675 


035 


30 


7676 


036 


31 


7677 


037 




7400 


_ 


64 


7401 


100 


94 


7402 


136 




7403 


_ 


58 


7404 


072 




7405 


- 




7406 


- 


96 


7407 


140 



63 

64 

65 

66 

67 

68 

69 

6A 

6B 

6C 

6D 

6E 

6F 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

7A 

7B 

7C 

7D 

7E 

7F 

00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

OA 

OB 

OC 

OD 

OE 

OF 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

1A 

IB 

1C 

ID 

IE 

IF 

40 
SE 



60 



^These codes are the decimal equivalent of the 7-bit octal ASCI I codes. They are returned by the ORD function, used by the CHR$ 
function and used for comparing strings when the standard collating sequence is in effect (regardless of the character set used) and when 
the native collating sequence is in effect and the ASCII character set is being used. (See AS parameter or BASIC control statement.) 

■•"•■Twelve zero bits at the end of a 60-bit word are an end-of-line or end-of-record mark rather than two colons. Colons at the end of 
lines or strings are considered part of the end-of-line or end-of-string marker. In the 63-character set, this display code represents a 
null character. 

■•■■•■■•■Jhose characters which are not included in the NOS/BE 95-character set are shaded. 

§ On TTY models having no underline, the backarrow (<-) takes its place. 

§§ In a 63-character set the internal octal representation for colon (:) is 63g, and the internal octal representation for percent {%) is 
7404g. (The characters reverse posiitons.) 
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TABLE A-2. 


CDC AND ASCII 53- AND 64-CHARACTER 


SETS 






BASIC 


Display 


CDC 




ASCII 






















Character 


Character 
Abbreviation''' 


Dacimal 
Code Tt 


Code 
(Octal) 


Graphic 


Hollerith 
Punch 
(026) 


External 
BCD 
Code 


Graphic 
Subset 


Punch 
(029) 


Code 
(Octal) 


: (colonj'f'f"'' 




5< 


00 § 


: (colon)1"1'1' 


8-2 


00 


:(colon)1"l"'' 


8-2 


072 


A 


UCA 


65 


01 


A 


12-1 


61 


A 


12-1 


101 


B 


UCB 


66 


02 


B 


12-2 


62 


B 


12-2 


102 


C 


ucc 


67 


03 


C 


12-3 


63 


C 


12-3 


103 


D 


UCD 


68 


04 


D 


12-4 


64 


D 


12-4 


104 


E 


UCE 


69 


05 


E 


12-5 


65 


E 


12-5 


105 


F 


UCF 


70 


06 


F 


12-6 


66 


F 


12-6 


106 


G 


UGG 


71 


07 


G 


12-7 


67 


G 


12-7 


107 


H 


UCH 


72 


10 


H 


12-8 


70 


H 


12-8 


110 


1 


UCI 


73 


11 


1 


12-9 


71 


1 


12-9 


111 


J 


ua 


74 


12 


J 


11-1 


41 


J 


'11-1 


112 


K 


UCK 


75 


13 


K 


11-2 


42 


K 


11-2 


113 


L 


UCL 


76 


14 


L 


11-3 


43 


L 


11-3 


114 


M 


UCIM 


77 


15 


M 


11-4 


44 


IVI 


11-4 


115 


N 


UCN 


78 


16 


N 


11-5 


45 


N 


11-5 


116 





UCO 


79 


17 





11-6 


46 


O 


11-6 


117 


P 


UCP 


80 


20 


P 


11-7 


47 


P 


11-7 


120 


Q 


UCQ 


81 


21 


Q 


11-8 


50 


Q 


11-8 


121 


R 


UCR 


82 


22 


R 


11-9 


51 


R 


11-9 


122 


S 


UCS 


83 


23 


S 


0-2 


22 


S 


0-2 


123 


T 


UCT 


84 


24 


T 


0-3 


23 


T 


0-3 


124 


U 


UCU 


85 


25 


U 


0-4 


24 


U 


0-4 


125 


V 


UCV 


86 


26 


V 


0-5 


25 


V 


0-5 


126 


w 


UCW 


87 


27 


w 


0-6 


26 


w 


0-6 


127 


X 


ucx 


88 


30 


X 


0-7 


27 


X 


0-7 


130 


Y 


UCY 


89 


31 


Y 


0-8 


30 


Y 


0-8 


131 


z 


UCZ 


90 


32 


z 


0-9 


31 


z 


0-9 


132 







48 


33 








12 








060 


1 




49 


34 


1 


1 


01 


1 


1 


061 


2 




50 


35 


2 


2 


02 


2 


2 


062 


3 




51 


36 


3 


3 


03 


3 


3 


063 


4 




52 


37 


4 


4 


04 


4 


4 


064 


5 




53 


40 


5 


5 


05 


5 


5 


065 


8 




54 


41 


6 


6 


06 


6 


6 


066 


7 




55 


42 


7 


7 


07 


7 


7 


067 


8 




56 


43 


8 


8 


10 


8 


8 


070 


9 




57 


44 


9 


9 


11 


9 


9 


071 


+ 




43 


45 


+ 


12 


60 


+ 


12-8-6 


053 


- 




45 


46 


- 


11 


40 


- 


11 


055 


* 




42 


47 


* 


11-8-4 


54 


* 


11-8-4 


052 


/ 




47 


50 


1 


0-1 


21 


/ 


0-1 


057 


( 




40 


51 


( 


0-8-4 


34 


( 


12-8-5 


050 


) 




41 


52 


) 


1 2-8-4 


74 


) 


11-8-5 


051 


$ 




36 


53 


$ 


11-8-3 


53 


$ 


11-8-3 


044 


s 




61 


54 


= 


8-3 


13 


= 


8-6 


075 


SP (space) 




32 


55 


blanl< 


no punch 


20 


blanl< 


no punch 


040 


, (comma) 




44 


56 


, (comma) 


0-8-3 


33 


, (comma) 


0-8-3 


054 


. (period) 




46 


57 


. (period) 


12-8-3 


73 


. (period) 


12-8-3 


056 


# 




35 


60 


= 


0-8-6 


36 


# 


8-3 


043 


[ 




91 


61 


[ 


8-7 


17 


[ 


12-8-2 


133 


L. 




93 


62 


] 


0-8-2 


32 


] 


11-8-2 


135 


%ttt 




37 


63ttt 


%ttt 


8-6 


16 


%nt 


0-8-4 


045 


" (quote) 


QUO 


34 


64 


# 


8-4 


14 


" (quote) 


8-7 


042 


(underline) 


UNO 


95 


65 


r* 


0-8-5 


35 


(underline) 


0-8-5 


137 


! 




33 


66 


V 


11-0 


52 


! 


12-8-7 


041 


& 




38 


67 


A 


0-8-7 


37 


& 


12 


046 


' (apostrophe) 




39 


70 


t 


11-8-5 


55 


' (apostrophe) 


8-5 


047 


? 




63 


71 


x 


1 1 -8-6 


56 


? 


0-8-7 


077 


< 




60 


72 


< 


12-0 


72 


< 


12-8-4 


074 


> 




62 


73 


> 


11-8-7 


57 


> 


0-8-6 


076 


@ 




64 


74 


<. 


8-5 


15 


@ 


8-4 


100 


\ 




92 


75 


S: 


12-8-5 


75 


\ 


0-8-2 


134 


/A.(circumflex) 




94 


76 


—1 


12-8-6 


76 


/\(circumflex) 


1 1 -8-7 


136 


; (semicolon) 




59 


77 


; (semicolon) 


12-8-7 


77 


; (semicolon) 


11-8-6 


073 


^The BASIC character abbreviation can be used only with the ORD function. 






'' These decimal codes are the values returned by the ORD function, used by the CHR$ function, and used fo 


r string compariso 


n when 


the native collating sequence is in effect and the normal (not ASCI 1) character set is in use. 






^^ 1 In installations using a 63 character set, display code 00 has no associated graphic or card code; display cod 


3 63 is the colon 




(8-2 punch); the % character and related card code; do not exist and translations yield a blank (55g). 






§ Twelve zero bits at the end of a 60-bit word in a zero-byte record are an end-of-line or end-of -record mar 


k rather than two 


colons. 
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DIAGNOSTICS 



B 



BASIC produces three categories of diagnostic 
messages: dayflle messages, complle-tlme diag- 
nostics, and execution-time diagnostics. These 
messages and diagnostics are listed in tables B-1 
through B-4. 



DAYFILE MESSAGES 

When a Job Is operating interactively, dayflle 
messages are displayed at the terminal. In con- 
trast, dayflle messages for a batch Job are appended 
to the output file for the job. Special control 
statements are required' to access the dayfile of a 
Job submitted by using the NOS command SUBMIT. 
(See section 12, Batch Operations.) 

Dayflle messages are listed in table B-1. BASIC 
automatically Increases its memory field length as 
required up to the maximum allowed; therefore, this 
maximum Is the field length referred to in the 
dayflle messages. 



COMPriE-TIME DIAGNOSTICS 

While compiling or translating a program into object 
code, BASIC checks the source code for such things 
as incorrect syntax, improper use of statements, 
and missing or illegal arguments. If any of these 
checks fall, the program (in most cases) compiles 
unsuccessfully and an error message, indicating the 
nature of the problem. Is returned to the terminal 
from where the program originated. The messages 
that can be produced during program compilation are 
listed in table B-2. These messages are printed in 
the following format: 



message AT line-number 

With the following exceptions, all complle-tlme 
diagnostics listed in table B-2 Inhibit program 
execution. The messages OBSOLETE FORM, LINES 
TRUNCATED AT 150 CHARACTERS, WARNING - FUNCTION 
REDEFINITION, and WARNING - FUNCTION REFERENCE 
BEFORE DEFINITION are warning types of diagnostics 
that do not inhibit program execution. The program 
that contains compilation errors can be forced to 
execute by specifying the DB=B parameter in the 
BASIC control statement. 



EXECUTION-TIME DIAGNOSTICS 

BASIC allows two modes of execution-time error 
processing. During normal error processing, control 
is returned to the operating system. If the pro- 
gram has executed an ON ERROR statement, the program 
retains control. The program can then inspect the 
error number by use of the ESM function. 

Errors 100, 106, and 115 can be recovered from only 
once. Should these errors occur a second time 
during the same execution period, the BASIC program 
aborts without transferring control to the ON ERROR 
address. 

Execution-time diagnostics are listed in alphabeti- 
cal order in table B-3. These messages are printed 
in the following format: 

message AT line-number 

For ease of reference, diagnostics are listed by 
error numbers in table B-4. 



TABLE B-1. DAYFILE MESSAGES 



Message 



BAD CONTROL CARD 
ARGUMENT-parm 

BASE STATEMENT OCCURS 
MORE THAN ONCE 

BASIC COMPILATION 
ERRORS 

BASIC EXECUTION ERROR 

INPUT FILE EMPTY OR 
MISPOSITIONED 

FIELD LENGTH TOO 
SHORT FOR BASIC 

FL TOO SMALL FOR 
EXECUTION 



Significance 



The specified control statement parameter or 
the parameter value is invalid. 

Only one BASE statement is allowed. 

Indicates that errors occurred during 
compilation. 

An error has terminated program execution. 

Input file is empty or positioned at end-of- 
information. 

The maximum field length is too short to allow 
compilation. 

The program compiled correctly but there was 
not enough assigned memory for execution. 
This condition is usually caused by excessive 
array dimensions. This message only occurs in 
compile-to-memory and execute mode. 



Action 



Correct the parameter. 



Delete multiple occurrences 
of the BASE statement. 

Correct the errors. 



Correct the error. 
Rewind the input file. 

Increase field length. 

Increase field length. 
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B-1 



TABLE B-2. COMPILE TIME DIAGNOSTICS 



Message 


Significance 


Action 


BLANK FILE 
STATEMENT 


File ordinal or name missing in a 
file statement. 


Correct and rerun. 


BLANK CLOSE 
STATEMENT 


The CLOSE statement does not specify 
which file to close. 


Correct and rerun. 


DEF WITHIN DEF 


A DEF statement occurs before the 
current multiple-line function defi- 
nition is terminated by FNEND. 


Move the DEF statement outside 
of the multiple-line function. 


DELIMITER 
OVERFLOW 


More than three characters are 
specified in the DELIMIT statement. 


Specify three or fewer char- 
acters. 


DUPLICATE LINE NO 


The same line number was used twice. 


Change one of the line numbers. 


END NOT LAST 


An END statement is placed prior to 
the last statement. 


Remove the END statement and 
replace it with a STOP state- 
ment if necessary. 


FL TOO SHALL FOR 
COMPILATION 


The maximum field length allowed is 
too small to allow compilation. The 
more compilation options requested, 
the more memory required. The B 
option requires more memory than the L. 


Increase field length. 


FNEND MISSING 


A multiple-line function is not ter- 
minated by FNEND before the end of the 


Supply an FNEND statement. 




program. 




FOR NESTED TOO 
DEEP 


FOR statements are nested more than 
ten deep. 


Rewrite so that no more than ten 
FOR statements are nested. 


FOR WITHOUT NEXT 


A FOR statement has no balancing 
NEXT statement. 


Supply a NEXT statement. 


ILLEGAL ARGUMENT 
IN ASC 


The argument in an ASC function is not 
a character or a defined abbreviation 
for a character. 


Replace the argument with a valid 
one. 


ILLEGAL BOUND 


An array bound declared in a DIM state- 
ment is < or > 131070. If OPTION 
BASE 1 was specified, the array bound 
cannot be = 0. 


Replace the array bound with a 
valid one. 


ILLEGAL CHARACTER 


BASIC encountered an unrecognizable 
character. 


Replace the character with a 
valid one. 


ILLEGAL 
COMPARISON 


A numeric quantity was compared to a 
string in an IF statement. 


Replace the comparison with a 
valid one. 


ILLEGAL EXTERNAL 
NAME 


A name in a CALL statement does not 
begin with a letter, or it is longer 
than seven characters. 


Correct the name. 


ILLEGAL FILE NAME 


The specified name is not allowed as a 
file name. 


Replace the file name with 
a valid one. 


ILLEGAL FILE 
NUMBER 


The number in a FILE statenrent is < 
or > (2 '8-1). 


Replace the file number with 
a valid one. 


ILLEGAL FN NAME 


The user function name is not in the 
form FNx or FNxf . 


Correct the function name. 


ILLEGAL LINE NO 


A line number is > 99999. 


Replace the line number with 
one < 99999. 


ILLEGAL LINE REF 


Referenced line number is incorrectly 
written or > 99999. 


Correct the line number 
reference. 
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TABLE B-2. COMPILE TIME DIAGNOSTICS (Contd) 



Message 



ILLEGAL MARGIN 
ILLEGAL NUMBER 
ILLEGAL OPERAND 



ILLEGAL 
REDIMENSIONS 



ILLEGAL STATEMENT 



ILLEGAL STATEMENT 
WITHIN IF 



ILLEGAL STRING 



ILLEGAL USE OF 
LEFT PAREN 



ILLEGAL USING 



INVALID BASE 
STATEMENT 



INVALID BASE 
VALUE 

INVALID CHANGE 



LINES TRUNCATED 
AT 150 CHARACTERS 



LINES OUT OF 
ORDER 

MISSING LINE NO 



NEXT WITHOUT FOR 



NON IMAGE 
REFERENCED 



NOT ENOUGH 
ARGUMENTS 



Significance 



The margin specified in a MARGIN 
statement is < or > 131070. 

A numeric constant is incorrectly 
written. 

A string is used in an arithmetic 
expression. 

An array specified in a DIM statement 
has been dimensioned in a previous DIM 
statement, or a statement attempts to 
change the number of dimensions (sub- 
scripts) of an array. 

A statement does not begin with a 
recognizable word or is written 
incorrectly. 

The statement is not allowed as an 
object of THEN or ELSE in an IF THEN 
ELSE statement. The object of THEN 
or ELSE must be executable. 

A string constant is incorrectly 
written. 

An attempt was made to use an argument 
with a system function when none was 
required. 

USING clause is not allowed where it is 
written or it is not allowed at all. 

OPTION BASE statement appears after the 
DIM statement or array reference. 



Base value is not or 1. 



CHANGE statement arguments are other 
than string-expression TO one-dira- 
array or one-dim-array TO string- 
expression. 

Some lines are greater than 150 char- 
i^cters. Although lines were truncated, 
program compilation continued. 

Line numbers are not in ascending 
order. 

A statement was written without a line 
number. 

A NEXT statement has no balancing FOR 
statement . 

The line number referenced in the 
USING clause is not an image statement. 



The number of arguments in a function 
reference is less than the number ex- 
pected by the function. 



Action 



Specify the margin with a valid 
value. 

Write the constant correctly. 



Write the expression correctly. 



Delete the duplicate DIM state- 
ments or use the proper number 
of subscripts. 



Rewrite the statement. 



Replace the invalid statement 
with a valid one. 



Rewrite the string correctly. 



Remove the argument. 



Correct the placement of the 
USING clause. 

Place the OPTION BASE statement 
before the DIM statement or 
array reference. 

Correct the value in the 
OPTION BASE statement. 

Replace this statement. It is 
no longer supported. 



Shorten the lines. 



Renumber lines in ascending 
order. 

Rewrite the statenent with a line 
number. 

Supply a FOR statement. 



Change the line number to one 
that references an image state- 
ment. 

Reference the function with 
with the proper number of 
arguments. 
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TABLE B-2. COMPILE TIME DIAGNOSTICS (Contd) 



Message 


Significance 


Action 


OBSOLETE FORM 


The statement form used is no longer 
supported; compilation continues. 


Use proper statement form. 


PARAMETER LIST 
CONFLICT 


Too many or too few parameters for the 
function reference; a string is used 
where the function expects a number; or 
a number is used where the function 
expects a string. 


Replace the invalid parameter 
list with a valid one. 


READ WITHOUT 
DATA 


The program contains a READ statement 
but no DATA statement. 


Include DATA statements. 


RECURSIVE FN 


A user function calls itself. This is 
not allowed. 


Eliminate the recursion. 


REDEFINITION OF 
COLLATE 


The program contains more than one 
OPTION COLLATE statement. 


Remove the excessive OPTION 
COLLATE statement(s). 


SET VALUE ILLEGAL 


The value in the SET statement is spec- 
ified as a string or is not specified 
at all. 


Replace the invalid value with 
a valid one. 


STATEMENT TOO 
COMPLEX 


The statement or the expression is too 
long or complex. 


Simplify the expression or break 
the statement into two or more 
simpler statements. 


TOO MANY 
ARGUMENTS 


The number of arguments in a function 
reference is greater than the number 
expected by the function. The number 
of arguments in a CALL statement is 
greater than 20. 


Replace the argument list with 
one containing the proper number 
of arguments. 


TOO MANY FILES 


More than 13 FILE statements are in 
the program. 


Use fewer FILE statements. 


TOO MANY FORMALS 


The DEF statement contains more than 
20 formal parameters. 


Rewrite the DEF statement with 20 
or fewer parameters. 


TRANSFER INTO DEF 


The statement refers to a line that 
is part of a multiple-line function 
definition. 


Change the statement reference. 


TRANSFER OUT OF 
DEF 


A statement within a multiple-line 
function definition refers to a line 
number not contained in the DEF... 
FNEND block. 


Change the statement reference. 


UNDEFINED IN REF 


The user function referenced is 
undefined. 


Refer to a defined function. 


UNDEFINED LINE 
REF 


The line number referenced does not 
exist. Several statements can refer- 
ence the same nonexistent line; only 
the first reference is diagnosed. 


Refer to a defined line number. 


WARNING-DIM 
AFTER REFERENCE 


The DIM statement for an array appears 
after the first reference to the 
array. 


Move the DIM statement for the 
array before the first reference 
to the array. 


WARNING - FUNCTION 
REDEFINITION 


A user-defined function was redefined 
within the program; compilation con- 
tinues. 


Remove the affected function 
reference. 


WARNING - FUNCTION 
REFERENCE BEFORE 
DEFINITION 


A user-defined function was referenced 
before it was defined with DEF; com- 
pilation continues. 


Move the function definition 
ahead of the function reference. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS 



Message 



ARGUMENT IS POLE IN COT 



ARGUMENT IS POLE IN TAN 



ARGUMENT NEGATIVE IN LOG 



ARGUMENT NEGATIVE IN SQR 



ARGUMENT TOO LARGE IN COS 



ARGUMENT TOO LARGE IN COT 



ARGUMENT TOO LARGE IN EXP 



ARGUMENT TOO LARGE IN SIN 



ARGUMENT TOO LARGE IN TAN 



ARGUMENT IS ZERO IN LOG 



ARRAY TOO SMALL IN CHANGE 



AUTO RECALL STATUS 
MISSING 



BAD DATA IN READ 



BAD FORMAT FIELD 



BAD TAB ARG - 1 USED 



CHAIN FILE NOT FOUND 



COMPILATION ERROR 



Error 
Nimber 



148 

153 

154 

160 

152 

149 

156 

150 

151 

155 

163 

116 

126 
127 

197 

144 
119 



Significance 



The argument for the COT function 
is a multiple ofjr; therefore, 
the results are undefined. 

The argument for the TAN function 
is a multiple of 7r/2; therefore, 
the results are undefined. 

The argument for the LOG function 
is negative. 

The argument for the SQR function 
is negative. 

The argument for the COS function 
must be less than 2.21069E14. 

The argument for the COT function 
must be less than 2.21069E14. 

The argument for the EXP function 
must be less than 2.21069E14. 

The argument for the SIN function 
must be less than 2.21069E14. 

The argument for the TAN function 
must be less than 2.21069E14. 

The argument for the LOG function 
is zero. 

Array in the CHANGE statement is 
not large enough to hold the 
string length plus one word for 
each character of the string. 

Internal error. 



A string was read when a number 
was expected, or vice versa. 

The current data conversion field 
in the image is for string data 
only, but the item to be printed 
is a number, or vice versa. 

A TAB function was issued that 
contained a bad argument. A tab 
of 1 (col 1) was assigned. Exe- 
cution continues. 

The file referenced in CHAIN does 
not exist as a local or permanent 
file. 

The statement caused a compila- 
tion error; therefore, it cannot 
be executed. This error occurs 
only if the 0B=B option Is 
specified. 



Action 



Make sure the argument is 
not a multiple of it . 



Make sure the argument is 
not a multiple of 7r/2. 

Make sure the argument is 
positive. 

Make sure the argument is 
positive. 

Make sure the argument is 
less than 2.21069E14. 

Make sure the argument is 
less than 2.21069E14. 

Make sure the argument is 
less than 2.21069E14. 

Make sure the argument is 
less than 2.21069E14. 

Make sure the argument is 
less than 2.21069E14. 

Make sure the argument is 
nonzero. 

Replace this statement; 
it is no longer sup- 
ported. 



Follow site procedures 
for reporting and re- 
solving system problems. 

Correct the DATA state- 
ment. 

Correct the print image. 



Change the TAB setting, 
or take no action. 



Check the spelling of the 
file name. 



Correct the statement. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS (Contd) 



Message 


Error 
Number 


Significance 


Action 


CPU ERROR EXIT 00 


107 


An illegal instruction was exe- 


Correct the subroutine. 






cuted. Could result from an 


If there are no errors in 






error in a FORTRAN or COMPASS 


the subroutine, follow 






subroutine. 


site-defined procedures 
for reporting software 
errors or operational 
problems. 


CPU ERROR EXIT 01 


108 


Address is out-of-range. Can 


Correct the subroutine. 






result from an error in a FORTRAN 


If there are no errors in 






or COMPASS subroutine. 


the subroutine, follow 
site-defined procedures 
for reporting software 
errors or operational 
problems. 


CPU ERROR EXIT 03 


110 


Address is out-of-range, or 


Correct the subroutine. 






infinite operand. 


If there are no errors in 
the subroutine, follow 
site-defined procedures 
for reporting software 
errors or operational 
problems. 


CPU ERROR EXIT 05 


112 


Indefinite operand or address is 


Correct the calculation 






out-of-range. Could result after 


that generated the faulty 






division of zero by zero if an ON 


number or change ON ERROR 






ERROR was used to continue execu- 


code to correct the 






tion. Could result from an error 


faulty variable before 






in a FORTRAN or COMPASS subrou- 


using it again, or cor- 






tine that modified the parameters 


rect the subroutine. 






passed. 




CPU ERROR EXIT 06 


113 


Indefinite or infinite operand. 


Correct the calculation 






Could result after division of 


that generated the faulty 






zero by zero if an ON ERROR was 


number or change ON ERROR 






used to continue execution. 


code to correct the 






Could result from an error in a 


faulty variable before 






FORTRAN or COMPASS subroutine 


using it again, or cor- 






that modified the parameters 


rect the subroutine. 






passed. 




CPU ERROR EXIT 07 


114 


Address is out-of-range, or in- 


Correct the calculation 






definite operand. Could result 


that generated the faulty 






after division of zero by zero if 


number or change ON ERROR 






an ON ERROR was used to continue 


code to correct the 






execution. Could result from an 


faulty variable before 






error in a FORTRAN or COMPASS 


using it again, or cor- 






subroutine that modified the 


rect the subroutine. 






parameters passed. 




DET USED BEFORE INV 


162 


DET without a parameter was 


Before issuing DET, in- 






called before a square numeric 


vert a matrix (with INV), 






matrix was inverted by INV. 


or supply a parameter to 
DET. 


DIVISION BY ZERO 


125 


An attempt was made to divide by 


Make sure no division by 






zero. 


zero occurs. 


ECS OR CY 170 PARITY 


101 


A hardware error occurred. 


Follow site procedures 


ERROR 






for reporting and re- 
solving system problems. 



B-6 



19983900 G 



TABLE B-3. EXECUTION TIME DIAGNOSTICS (Contd) 



Message 



END OF DATA 



END OF DATA ON FILE 



ERROR IN CHANGE 



FILE ALREADY OPEN 



FILE CLOSED/UNDEFINED 



FILE NUMBER ALREADY IN 
USE 



GOSUB NESTED TOO DEEP 



HUNG IN AUTO RECALL 



ILLEGAL ACTION ON BINARY 
FILE 



ILLEGAL ACTION ON CODED 
FILE 



ILLEGAL CHAIN PARAMETER 



ILLEGAL CHARACTER 



ILLEGAL CHR? ARGUMENT 



ILLEGAL DATA ON FILE 



Error 
Number 



120 



136 



164 



143 

141 
142 

123 

117 

175 
171 
145 

165 



196 



135 



Significance 



A READ statement was executed 
after the internal data block was 
exhausted. 

A READ* or INPUT* Statement was 
executed after file data was 
exhausted. 

The length as specified in the 
first element of the array that 
is being changed to a string is 
greater than 131070, less than 0, 
or an element is not a valid 
character code. 

The file name specified in the 
FILE statement has been assigned 
a file number in a previous FILE 
statement and is still in use. 

The file number referenced does 
not correspond to an active file. 

The file number specified in the 
FILE statement is already 
assigned to an open, active file. 

More than 40 GOSUB statements are 
nested. 

Internal system error. 



A DELIMIT. MARGIN, OR SETDIGITS 
was attempted on a binary file. 



A SET statement or LOC or LOF 
function was attempted on a coded 
file. 

A parameter in the CHAIN state- 
ment is incorrectly formed, or 
the referenced file is assigned 
or connected to the terminal. 

A string in a string comparison 
or a string that is referenced in 
a CHANGE statement contains an 
invalid character; usually caused 
by processing non-ASCII data in 
ASCII mode, or vice versa. 

Argument does not correspond to 
an ordinal in the collating 
sequence. 

An illegal number or string was 
encountered when INPUT from a 
file was attempted; usually 
caused by reading a string when a 
number was expected. 



Action 



Check for end-of-data, or 
supply more data. 



Check for end-of-data, or 
supply more data. 



Replace this statement; 
it is no longer sup- 
ported. 



Close the file before 
attempting to open it 
again. 



Check the file number or 
activate the file with a 
FILE statement. 

Specify an unused file 
number. 



Nest 40 or fewer GOSUB 
statements. 

Follow site procedures 
for reporting and re- 
solving system problems. 

Do not attempt a DELIMIT, 
MARGIN, or SETDIGITS on a 
binary file. 

Do not attempt a SET, LOC 
or LOF on a coded file. 



Form the parameter 
correctly. 



Eliminate the invalid 
character or change the 
mode. 



Correct the argument. 



Check data on the file. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS (Contd) 



Message 


Error 
Number 


Significance 


Action 


ILLEGAL DATA, RETYPE 
INPUT 


133 


An improperly formed number or 
string was entered; usually 
caused by entering a string when 
a nimiber was expected. 


Reenter the entire line. 


ILLEGAL FILE NAME 


139 


The file name is not allowed as a 
NOS file name. 


Choose another name. 


ILLEGAL FILE NUMBER 


138 


The file number referenced is 
less than zero or is greater than 
131071. 


Use a file number within 
the proper range. 


ILLEGAL INPUT ON FILE 


137 


The input operation, READ or IN- 
PUT, is not valid for the current 
mode of the file (READ on a coded 
file, INPUT on a binary file. 
READ or INPUT on an output file). 


Use the RESTORE statement 
to permit change of mode. 


ILLEGAL LABEL 


170 


The label referenced in a JUMP 
statement or NXL function does 
not exist, is greater than 99999, 
or is the label of a REM 
statement. 


Correct the label. 


ILLEGAL LPAD$ ARGUMENT 


192 


The LPADJ numeric argument is 
negative, indefinite, or 
infinite. 


Correct the argument. 


ILLEGAL MARGIN 


131 


Margin specified is outside the 
allowable range of through 
131070. 


Specify the margin within 
the range of through 
131070. 


ILLEGAL ORD ARGUMENT 


194 


The value of the ORD argument is 
neither a valid character nor a 
valid character mnemonic for 
characters in the collating 
sequence. 


Correct the argument. 


ILLEGAL OUTPUT ON FILE 


130 


The output operation, PRINT or 
WRITE, is not valid for the cur- 
rent mode of the f i le {WRITE on a 
coded file, PRINT on a binary 
file, PRINT or WRITE on an input 
file). An attempt to WRITE or 
PRINT on a read-only permanent 
file causes this error. 


Restore the file to 
change mode. 


ILLEGAL RPAD$ ARGUMENT 


193 


The RPAD$ numeric argument is 
negative, indefinite, or 
infinite. 


Correct the argument. 


ILLEGAL RPTJ PARAMETER 


191 


The RPT$ parameter is negative, 
indefinite, or infinite. 


Correct the parameter. 


ILLEGAL SET VALUE 


172 


The SET value is negative, in- 
definite, or infinite. 


Correct the parameter. 


ILLEGAL SUBSTR PARAMETER 


169 


Parameters specified in the 
SUBSTR function are outside the 
legal range as determined by the 
actual string length. 


Specify parameters within 
the allowable range. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS (Contd) 



Message 



Error 
Number 



INDEFINITE OPERAND 



in 



INFINITE OPERAND 



109 



INPUT WITHIN INPUT 



I/O TIME LIMIT 
MASS STORAGE LIMIT 

MATRIX DIMENSION ERROR 

MEMORY OVERFLOW 
NEGATIVE NUMBER TO POWER 



NO FILE SPACE. ADD 
ANOTHER FILE STMT 

NO FORMAT FIELD SPECIFIED 



NONNUMERIC STRING 



NOT ENOUGH DATA, REENTER 
OR TYPE IN MORE 



XXX NOT IN PPLIB 



195 



106 
118 

161 

166 
158 

140 
128 

167 
134 

103 



Significance 



An indefinite floating-point 
value was used in a calculation. 
Could result after division of 
zero by zero if an ON ERROR was 
used to continue execution. 
Could result from an error in a 
FORTRAN or COMPASS subroutine 
that modified the parameters 
passed. 

An invalid floating-point number 
was used in a calculation. Could 
result from division by zero if 
ON ERROR was used to continue. 
Could result from an error in a 
FORTRAN or COMPASS subroutine 
that modified the parameters 
passed. 

INPUT statement includes a 
function reference that attempts 
to execute another INPUT state- 
ment. No diagnostic is returned 
if the second reference INPUT is 
in another file. 

Time limit exceeded. 

Mass storage limit exceeded. 



Dimension inconsistency in one of 
the MAT statements or the dimen- 
sion is greater than 100 times 
100 in the INV function. 

Field length exceeded. 

An attempt was made to raise a 
negative number to a noninteger 
exponent. 

All declared fill buffers are 
used. 

The print image does not contain 
a data conversion field but the 
print list specifies that data is 
to be printed. 

The string in the VAL function is 
nonnuraeric. 

Not enough data was entered in 
response to an input request. 



System software malfunction. 



Action 



Correct the calculation 
that generated the faulty 
number; change ON ERROR 
code to correct the 
faulty variable before 
using it again; or 
correct the subroutine. 



Correct the calculation 
that generated the faulty 
number; change ON ERROR 
code to correct the 
faulty variable before 
using it again; or cor- 
rect the faulty sub- 
routine. 

Eliminate one of the 
INPUT statements. 



Increase the time limit. 

Increase the mass storage 
limit. 

Correct the dimensioning 
error. 



More field length needed. 
Correct the error. 



Add another FILE state- 
ment or CLOSE a file. 

Rewrite the print image 
to include a data con- 
version field. 



Make the string numeric. 



Either reenter the entire 
input line or enter a de- 
limiter followed by the 
additional data items. 

Follow site procedures 
for reporting and re- 
solving system problems. 
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TABLE B-3. EXECUTION TIME DIAGNOSTICS (Contd) 



Message 



ON EXPRESSION OUT OF 
RANQE 

OPERATOR DROP OR KILL 

OPERATOR RERUN 
POWER TOO LARGE 

PPU ABORT 

PP CALL ERROR 



RANDOM ACTION BEYOND EOF 



RANDOM FILE EMPTY 



RETURN BEFORE GOSUB 



STRING OVERFLOW 



SUBSCRIPT ERROR 



TAPE FILE IS NOT ALLOWED 



TIME LIMIT EXCEEDED 



TOO MUCH DATA, RETYPE 
INPUT 



UNSATISFIED EXTERNAL 
REFERENCE 



ZERO TO A NEGATIVE POWER 



Error 
Number 



122 

105 

115 
159 

102 
104 

174 

173 
124 
168 

121 

147 

100 
132 

129 
157 



Significance 



The expression in the ON state- 
ment is negative, zero, or ex- 
ceeds the count of line numbers. 

The operator dropped or killed 
the program. 

The operator reran the program. 

The exponent in an expression is 
such that an overflow occurs. 

A PPU abort occurred. The pro- 
gram was terminated by an oper- 
ating system-detected error. 

Internal system error. 



The SET value is greater than LOF 
or a WRITE operation on a random 
file attempted to extiend the file 
length. 

A SET was attempted on an empty 
file. 

A RETURN statement was encoun- 
tered with no GOSUB in effect. 

An attempt was made to create a 
string that contains more than 
131070 (6-bit) characters. 

An attempt was made to reference 
an element outside the bounds of 
an array. 



An attempt was made to use a tape 
file. 



The program time limit was 
exceeded. 



Too many data items were entered 
in response to an input request. 
All items entered on the last 
type- in are ignored. 

An attempt was made to execute a 
CALL statement in compile-to- 
memory mode. 

Exponent in an expression is neg- 
ative when the mantissa is zero. 



Action 



Make sure the expression 
is valid. 



None. 

None. 

Use a smaller exponent. 



Follow site procedures 
for reporting and re- 
solving system problems. 

Follow site-defined pro- 
cedures for reporting 
software errors or 
operational problems. 



Correct the error. 



Correct the error. 



Add a GOSUB or remove the 
RETURN. 

Use two or more strings 
that are shorter than the 
limit. 

Use a correct subscript 
value or specify a larger 
array with a DIM state- 
ment. 

Use mass storage for the 
file. Copy an existing 
tape file to mass storage 
before using with BASIC. 

Increase the time limit. 
Check the program for a 
nonending loop. 

Reenter the entire input 
line. The exact number 
of items requested should 
be entered. 

Use the B and GO options 
on the BASIC control 
statement. 

Correct the error. 
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TABLE B-4. EXECUTION TIME DIAGNOSTICS BY ERROR NIWBER 





Error 
Number 


Message 


Error 
Number 


Message 




100 


TIME LIMIT EXCEEDED 


131 


ILLEGAL MARGIN 




101 


ECS OR CY 170 PARITY ERROR 


132 


TOO MUCH DATA, RETYPE INPUT 




102 


FPU ABORT 


133 


ILLEGAL DATA, RETYPE INPUT 




103 


XX NOT IN PPLIB 


134 


NOT ENOUGH DATA, REENTER OR TYPE IN 




104 


PP CALL ERROR 




MORE 




105 


OPERATOR DROP OR KILL 


135 


ILLEGAL DATA ON FILE 




106 


I/O TIME LIMIT 


136 


END OF DATA ON FILE 




107 


CPU ERROR EXIT 00 


137 


ILLEGAL INPUT ON FILE 




108 


CPU ERROR EXIT 01 


138 


ILLEGAL FILE NUMBER 




109 


INFINITE OPERAND 


139 


ILLEGAL FILE NAME 




110 


CPU ERROR EXIT 03 


140 


NO FILE SPACE. ADD ANOTHER FILE STMT 




111 


INDEFINITE OPERAND 


141 


FILE CLOSED/UNDEFINED 




112 


CPU ERROR EXIT 05 


142 


FILE NUMBER ALREADY IN USE 




113 


CPU ERROR EXIT 06 


143 


FILE ALREADY OPEN 




114 


CPU ERROR EXIT 07 


144 


CHAIN FILE NOT FOUND 




115 


OPERATOR RERUN 


145 


ILLEGAL CHAIN PARAMETER 




116 


AUTO RECALL STATUS MISSING 


147 


TAPE FILE IS NOT ALLOWED 




117 


HUNG IN AUTO RECALL 


148 


ARGUMENT IS POLE IN COT 




118 


MASS STORAGE LIMIT 


149 


ARGUMENT TOO LARGE IN COT 




119 


COMPILATION ERROR 


150 


ARGUMENT TOO URGE IN SIN 




120 


END OF DATA 


151 


ARGUMENT TOO URGE IN TAN 




121 


SUBSCRIPT ERROR 


152 


ARGUMENT TOO LARGE IN COS 




122 


ON EXPRESSION OUT OF RANGE 


153 


ARGUMENT IS POLE IN TAN 




123 


GOSUB NESTED TOO DEEP 


154 


ARGUMENT IS NEGATIVE IN LOG 




124 


RETURN BEFORE GOSUB 


155 


ARGUMENT IS ZERO IN LOG 




125 


DIVISION BY ZERO 


156 


ARGUMENT IS TOO LARGE IN EXP 




126 


BAD DATA IN READ 


157 


Z£?D TO A NEGATIVE POWER 




127 


BAD FORMAT FIELD 


158 


NEGATIVE NUMBER TO POWER 




128 


NO FORMAT FIELD SPECIFIED 


159 


POWER TOO LARGE 




129 


UNSATISFIED EXTERNAL REFERENCE 


160 


ARGUMENT NEGATIVE IN SQUARE ROOT 




130 


ILLEGAL OUTPUT ON FILE 


161 


MATRIX DIMENSION ERROR 
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TABLE B-4. EXECUTION TIME DIAGNOSTICS BY ERROR NUMBER (Contd) 



Error 
Number 


Message 


Error 
Number 


Message 


162 


DET USED BEFORE INV 










173 


RANDOM FILE EMPTY 


163 


ARRAY TOO SMALL IN CHANGE 










174 


RANDOM ACTION BEYOND EOF 


164 


ERROR IN CHANGE 










175 


ILLEGAL ACTION ON BINARY FILE 


165 


ILLEGAL CHARACTER 










191 


ILLEGAL RPT$ PARAMETER 


166 


MEMORY OVERFLOW 










192 


ILLEGAL LPAD$ ARGUMENT 


167 


NONNUMERIC STRING 










193 


ILLEGAL RPAD$ ARGUMENT 


168 


STRING OVERFLOW 










194 


ILLEGAL ORD ARGUMENT 


169 


ILLEGAL SUBSTR PARAMETER 










195 


INPUT WITHIN INPUT 


170 


ILLEGAL LABEL 










196 


ILLEGAL CHR$ ARGUMENT 


171 


ILLEGAL ACTION ON CODED FILE 










197 


BAD TAB ARG - 1 USED 


172 


ILLEGAL SET VALUE 
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GLOSSARY 



Abort - 

The procedure to terminate a program or 
when a specified condition exists. 



job 



Alphanvmeric - 

The letters, digits, and special characters in 
the computer character sets defined 
dlx A, tables A-1 and A-2. 



xn appen- 



ASCII - 

American National Standard Code for Information 
Interchange, used as the ASCII 128-character 
set with either 6- or 12-bit characters. 

BASIC - 

Beginner's all-purpose symbolic instruction 
code, an elementary programming language. 

Batch Processing - 

A processing method that accumulates and proc- 
esses together a number of related input items. 

Bound Specifier - 

An integer used to define the largest subscript 
for an array. 

Breakpoint - 

A designated location in a program where, if 
reached during program execution, a break or 
suspension in execution occurs. 

Character Set - 

The numbers, letters, and symbols having meaning 
in a given device or coding system. 

Compile - 

The procedure that translates a program from a 
high-level programing language, such as BASIC, 
into machine instructions called object code. 

Concatenate - 

The procedure of uniting or linking a series of 
characters; chaining. 

Constant - 

A value assumed to be fixed or invariable in a 
given operation or calculation. 

CYBER Interactive Debug (CID) - 

The facility that externally monitors and con- 
trols execution of a program, usually from an 
Interactive terminal. 

Debug - 

The procedure to trace, detect, and eliminate 
mistakes in a program or in any software. 

Direct Access File - 

The permanent file. Itself, that is made local. 

Display Code - 

An Internal code set that is used by CDC 
CYBER 70, CYBER 170, and 6000 Series computers 
to represent alphanumeric and special char- 
acters. (Refer to tables A-1 and A-2 in 
appendix A.) 



End-of-Flle (EOF) - 

A boundary within a sequential file; the end of 
a file. 

Rnd-of-Information (EOI) - 

The definition of the actual end of a named 
file. 

End-of-Line (EOL) - 

A special indicator that marks the end of each 
line or card image. EOLs are automatically 
written on coded files created by BASIC, 

End-of-Record (EOR) - 

A special indicator that marks the end of a 
logical record. 



File - 

A collection of data with an associated name. 

Function - 

A procedure that returns a value; invoked by a 
function reference In an expression. 



Indirect Access File - 

A separate local copy of the permanent file 
(used under NOS). 

Input/ Output (I/O) - 

The equipment used to process data with a com- 
puter or the data processed and produced by the 
computer. 

Interactive - 

A two-way exchange of information; alternating 
input/output dialog; contrast with batch 
processing. 

Interrupt - 

The procedure to stop a running program in such 
a way that it can be resumed at a later time. 
The interrupt key depends on the terminal and 
system that is being used. 



Local File - 

Any file assigned to a job; this includes all 
temporary files (Indirect access permanent 
files), all direct access permanent files, and 
all files that are not permanent. 

Login - 

The procedure to Initially establish a terminal 
session. 

Logoff - 

The procedure used to end a terminal session. 

Null String - 

A data string that has a length of zero. 

On-Llne - 

The condition when equipment communicates with 
the host computer. 
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Parameter Variable - 

A variable that Is given a specific value for a 
particular purpose or process. 

Petmanent File - 

A file that remains In the operating system 
permanent file system after the user logs off. 



Substring "- 

A character string that is part of another 
string. 

Temporary File - 

A file that is released from the NOS system 
when the user logs off. It is a local file of 
an indirect access permanent file. 



Record - 

A collection of related Items of data treated 
as a unit. A complete set of such records can 
form a file. 



Time-Sharing - 

The allocation of available computer time among 
all users, such that each user has equivalent 
access to system resources. 



Statement - 

Each line of a program that begins with a line 
number. 

String - 

A sequence of contiguous characters or bits 
treated as a unit. 

String Variable - 

A variable that holds string values. 



Trap (noun) - 

The established mechanism for detecting a spec- 
ified condition and causing a transfer of 
control. In CID, the location to which control 
is transferred is in CID itself. 

Trap (verb) - 

The automatic transfer of control to a prede- 
fined location upon the detection of some 
specified condition. 



Subscripted Variable - 

A representation for one Value in an array of 
values; consists of numeric and string 
variables. 



Variable - 

An established Identifer that represents a 
value or values that can change during program 
execution. 
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NOS FILE HANDLING 



A file Is a collection of information with an 
associated name. A BASIC program is an example of 
a file. A BASIC program frequently reads in another 
file containing data. All or part of the output 
from a program can be stored in a file Instead of 
being printed at the terminal. This file can then 
be listed on a teletypewriter or on a high-speed 
printer, or simply used as data for another program. 

NOS recognizes two types of files, local and perma- 
nent. A local file is any file assigned to a Job; 
this includes all temporary and all attached direct 
access files. Before any file can be used, it must 
be made local. A permanent file is one that re- 
mains in the NOS permanent file system after the 
system is logged off. There can be both a local 
and a permanent copy of the same file. After the 
system is logged off, the permanent copy is retained 
and the local copy is released. 



When a file is made local, it becomes either a 
primary or a local file. The local file established 
by a NEW, OLD, or LIB command, under the BASIC sub- 
system, is always primary. The NEW command creates 
a primary file; the OLD and LIB commands obtain a 
primary file from an indirect access file. There 
can be only one primary file and usually this file 
is the program to be run. When the commands LIST, 
SAVE, or RUN are issued, the operating system 
assumes it refers to the primary file. The GET or 
ATTACH commands establish a local file. To refer 
to a local file with a NOS command, the file name 
must be specified, as in: LIST,F=DAT, or SAVE, DAT. 
In SAVE, DAT, file DAT is retained as a permanent 
file; DAT can be a primary or local file. When the 
current primary file is released by entry of the 
OLD, NEW, or LIB commands, all primary and local 
files are released unless the ND (no drop) is 
included in the command. 



There are two types of permanent files, indirect 
access and direct access. An indirect access file 
is used indirectly; It is always a separate local 
copy of the permanent file that is used. With a 
direct access file, the permanent file (not a copy) 
is made local. (See figure D-1.) An indirect 
access file is created by using the NOS system 
commands: REPLACE and SAVE; a local copy is made 
available to the user by either the OLD, GET, or 
LIB commands; the local copy is updated by the 
REPLACE command and released from use (but not from 
permanent storage) by the RETURN command. A direct 
access file is created by the DEFINE command; it is 
made local by the ATTACH command and released from 
use by the RETURN command. The PURGE command is 
used to remove from permanent storage both direct 
and indirect access files. 



NOS FILE CONTROL 
COMMANDS 

The following subsections include brief descriptions 
of some NOS file manipulation commands. Specific 
information can be obtained pertaining to permanent 
files by using the CATLIST command described in the 
Network Products Interactve Facility reference 
manual (NOS 1 sites). Volume 3 of the NOS version 2 
reference set (NOS 2 sites), or in the NOS Time- 
Sharing User's reference manual. 

If the following commands are entered in batch 
mode, they should end with a period. The following 
commands are divided into those that access direct 
access permanent files and those that access indi- 
rect access permanent files. 



Commands 

LIST 
RETURN 
SAVE 
etc. 



LIST,F=lfnt 
RETURN,lfn 
SAVEJfn 
etc. 



Local Files 
(temporary) 



Primary 
(1 only) 



Local 



tifn is the name of a local file 
t tsame copy 




Permanent Files 



Indirect Access 



ATTACH tt 



Direct Access 



Figure 0-1. NOS Files 
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DIRECT ACCESS PERMANENT 
FILES 

Figure D-2 illustrates the formats for the commands 
DEFINE and ATTACH, which are used to access direct 
access permanent files under NOS. The DEFINE com- 
mand creates an empty permanent file pfn with a 
local file name. The ATTACH command makes a perma- 
nent file pfn a local file. For a description of 
the parameters not explained for ATTACH, see the 
DEFINE command. 

INDIRECT ACCESS 
PERMANENT 

Figure D-3 illustrates the formats for the commands 
that access the Indirect access permanent files 
under NOS. For a description of the statement 
parameters shown in these formats, see the DEFINE 
and CHANGE commands (figures D-2 and D-3). 

The SAVE command creates an indirect access perma- 
nent file, permits a copy of the specified local 
file to be retained on the permanent file system, 
and specifies the subsystem to be associated with 
the file. 

The GET command retrieves a copy of a specified 
indirect access file for use as a local file. To 



reference the local file by a name other than the 
pfn, the Ifn parameter is used. The current pri- 
mary file remains primary unless the file name 
specified by Ifn is that of the current primary 
file. In that case, the contents of the primary 
file are replaced by a copy of pfn, which becomes 
the new primary file. 

The OLD command requests a copy of the specified 
permanent file as a primary file. When a specific 
subsystem is associated with the file, it is se- 
lected automatically. This occurs only if the file 
was originally a primary file and was saved while 
a subsystem, other than the null subsystem, was 
active. 



The LIB command requests a copy of specified indi- 
rect access permanent files from the catalog of a 
special user library; this file becomes a primary 
file. 

The REPLACE command permits the contents of an 
indirect access permanent file to be replaced with 
the contents of a local file. If pfn does not 
exist, a new permanent file is created. 

The CHANGE command allows attributes of permanent 
files to be changed without further operation of 
the file; this is valid only for the originator of 
the file. 



• DEFINEJfn=pfn/CT=n,M=m.NA. 



Ifn 



pfn 
CT 



M 



NA 



If DEFINE is to be used to create an empty direct access permanent file, Ifn (local file name) is 
specified only to reference the file by a name other than its permanent file name. If DEFINE is to 
be used to define an existing local file as a direct access file, Ifn is the name of the local file. Also, 
if Ifn exists, its position is not altered. 

This is the permanent file name. If pfn is omitted, the system assumes Ifn = pfn. 

Permanent File Category where n is one of the following (n can be abbreviated by concatenating the 
underlined letters): 
PRIVATE = private 
SPRIV = semi-private 

PUBLIC = public 

File or User Permission where m is one of the following (m can be abbreviated by concatenating the 
underlined letters): 

WRITE = write permission 

MODIFY = modify permission 

READMD = read in modify mode 

R^EADAP = read in append mode 

EXECUTE = execute file permission 

If a resource is unavailable, NOS suspends requests until a resource is free. 



ATTACH,lfn=pfn/M=m,NA. 

Ifn=pfn This is used when desirable to reference an attached file by other than its permanent file name. If a 

current temporary file is referenced as Ifn, the contents of that file are lost when the permanent file 
is attached. 

M=m This indicates modify permission. If omitted, the system assumes read permission only. 

NA This allows waiting for the direct access file to become available. If the file is currently being 

accessed, the job is suspended. lAF uses a user break, such as CTL P, to terminate the request. 
Enter STOP to terminate the request under the NOS Time^Sharing system. 



Figure D-2, Direct Access Permanent File Commands 
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• SAVEJfn=pfn/CT=n,M=m,ss=subsyst,NA. 



• GET,lfn=pfn/NA. 



• OLD,lfn=pfn. 



• LIB.Ifn°pfn. 



• REPLACE,tfn=pfn/NA. 



• CHANGE,nfn=ofn/CT=n^=m^=subsyst,NA. 



nfn 
ofn 
CT and M 



This is the new permanent file name to be assigned. 
This is the current permanent file name. 

These are to be specified only if they are to be changed. For a description of the command 
parameters, see DEFINE command. «»mmdna 



Figure D-3. Indirect Access Permanent File Commands 



EXAMPLE OF FILE CONTROL 
COMMANDS 

Figure D-4 Illustrates a series of programs that 
use the system commands to create, reference, list, 
and purge files with a time-sharing terminal. The 
example is divided into three main columns. The 
leftmost column contains a transcript of the text 
entered and received at the terminal. The center 
column represents the area of temporary files. The 
center column is divided into two sections: the 
left section shows the life span of each program 
(primary file) entered; the right section is the 
area of the remaining temporary files and shows 
when temporary files enter the working area and how 
long they remain. The rightmost column represents 
permanent files. It shows when a copy of a tempo- 
rary file is made into a permanent file and how 
long that permanent file exists. 



Temporary files are created with the NEW command or 
a copy of a file that already exists in the system. 
All temporary files are released when they are 
logged off the system. Local files include tempo- 
rary and direct access files assigned to a job. 



Duration of a file is indicated by a solid vertical 
line. An arrow point signals destination and ter- 
mination. The copying of a file from Ifn to pfn, 
or the reverse, is indicated by a broken horizontal 
line. 



For a complete explanation of system commands, 
consult the Network Products Interactive Facility 
reference manual (NOS 1 sites). Volume 3 of the NOS 
version 2 reference set (NOS 2 sites), or the NOS 
Time-Sharing User's reference manual. 



19983900 H 



D-3 





Temporary Files 


Permanent Files 


Keyhnard Text 


Primary 
File (OLD, 
NEW, LIB) 


Local 
(Ifn) 


(pfn) 




NEW,PR0G1 
READY. 


PROG1 








090 FILE #1 = "W0RK1" 
095 FILE #2 = "WORK2" 
100 WRITE #1,1,2,3 
110 PRINT #2, "A", "B" 
120 RESTORE #1 
130 RESTORE #2 
140 END 
RUN 






W0RK1 W0RK2 
1 




RUN COMPLETE. 














SAVE 
READY. 










- — 





• ••►PR0G1 


NEW,PR0G2/ND 
READY. 


PRO 


G2 


PROC 
WOR 


SI 

CI w 


0RK2 






145 FILE #1 = "W0RK1" 
150 READ #1,X,Y,Z 
160 PRINT X;Y;Z 
170 END 
RUN 






' 


1 








1 2 3 
















RUN COMPLETE. 
















SAVE,WORK1=PERM1 
READY. 






1 


— — 


, , . 


■ — — 


•-PER 


Ml 


SAVE,WORK2=PERM2 
READY. 


' 










_— _ . 


_ — — — 


»-PER 


M2 


NEW,PROG3 
READY. 


PRC 


IG3 












175 FILE #3 = "PERM1" 
177 APPEND #3 
180 WRITE #3,4,5,6 
190 RESTORE #3 
200 END 
















GET,PERM1 
RUN 






PERM1 - 






1 








RUN COMPLETE. 


















REPLACE,PERM1 






1 







--* 






0LD.PR0G1 
READY. 


PR 


0G1-*- 




"""^ 








LIST 

090 FILE #1 = "WORK1" 
095 FILE #2 = "WORK2" 
100 WRITE #1,1,2,3 
110 PRINT #2, "A", "B" 
120 RESTORE #1 

















Figure D-4. File Control Commands (Sheet 1 of 2) 
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Keyboard Text 



130 RESTORE #2 
140 END 
READY. 

PURGE,PR0G1 
READY. 

NEW,PR0G4 
READY. 

GET.NEW1=PERM1 
READY. 

200 FILE #4 = "NEW1" 

210 RESTORE #4 

230 READ #4, A 

240 PRINT A; 

250 IF MORE #4 THEN 230 

270 PRINT "ALL OUT" 

280 END 

RUN 

1 2 3 4 5 6 ALL OUT 
RUN COMPLETE. 
CATLIST 

CATALOG OF USER007 
INDIRECT ACCESS FILE(S) 

PERM! PERM2 
DIRECT ACCESS FILE(S) 

2 INDIRECT ACCESS FILE(S), TOTAL PRUS = 14. 
DIRECT ACCESS FILE(S), TOTAL PRUS = 0. 
READY. 



Temporary Files 



Primary 
File (OLD, 
NEW, LIB) 



1 

PROG1 



PROG4 



Local 
(Ifn) 



NEW1- 



Pertnanent Files 



(pfn) 



PROG1 



PERM1 



PERM2 



Figure D-4. File Control Commands (Sheet 2 of 2) 
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FUTURE SYSTEM MIGRATION GUIDELINES 



This appendix contains programming practices recom- 
mended by CDC for users of the software described 
in this manual. When possible, application pro- 
grams based on this software should be designed and 
coded in conformance with these recommendations. 



ASC Function 

Do not use the ASC function. 
ORD function instead. 



Use the equivalent 



Two forms of guidelines are given. The general 
guidelines minimize application program dependence 
on the specific characteristics of a hardware 
system. The feature use guidelines ensure the 
easiest migration of an application program to 
future hardware or software systems. 



GENERAL GUIDELINES 

Good programming techniques always Include the 
following practices to avoid hardware dependency: 

Avoid programming with hardcoded constants. 
Manipulation of data should never depend on the 
occurrence of a type of data in a fixed multiple 
such as 6, 10, or 60. 

Do not manipulate data based on the binary 
representation of that data. Characters should 
be manipulated as characters, rather than as 
octal display-coded values or as 6-bit binary 
digits. Numbers should be manipulated as 
numeric data of a known type, rather than as 
binary patterns within a central memory word. 

Do not identify or classify information based 
on the location of a specific value within a 
specific set of central memory word bits. 

Avoid using COMPASS in application programs. 
COMPASS and other machine-dependent languages 
can complicate migration to future hardware or 
software systems. Migration is restricted by 
continued use of COMPASS for stand-alone pro- 
grams, by COMPASS subroutines embedded in 
programs using higher- level languages, and by 
COMPASS owncode routines used with CDC standard 
products. COMPASS should only be used to 
create part or all of an application program 
when the function cannot be performed in a 
higher-level language or vrtien execution 
efficiency is more important than any other 
consideration , 



ANSI Form 

If both an ANSI form and a non-ANSI form exist, use 
the ANSI form. Non-ANSI forms might not be sup- 
ported in future versions of BASIC. 



Blonks 

Do not embed blanks within line numbers, keywords, 
variable names, and any other elements of the 
language. 



CHANGE Statement 



Do not use the CHANGE statement. Use string 
functions or substring notation to manipulate char- 
acters. Do not manipulate the numeric codes for 
characters. 



Characters in Unquoted Strings 

Use only the characters plus, minus, period, blank, 
digit, and letter in unquoted strings. Future ver- 
sions of BASIC might only allow these characters; 
If other characters are needed, use quoted strings. 



CLK$ and DAT$ Functions 

Do not dismantle values returned by the CLK$ and 
DAT$ functions; use the result as a whole. The 
order of fields in the result might be different in 
a future version of BASIC. 



Collating Sequence 



Do not rely on the display code collating sequence 
(native collating sequence in normal mode, non- 
ASCII character set in use). The display code 
collation order might not be supported in future 
systems. 



FEATURE USE GUIDELINES 

The recommendations in the remainder of this appen- 
dix ensure the easiest migration of an application 
program for use on futAre hardware or software sys- 
tems. These recommendations are based on known or 
anticipated changes in the hardware or software 
system, or comply with proposed new industry stan- 
dards or proposed changes to existing industry 
standards. 



DEF Function 

Do not redefine a user-defined function within a 
program. In the future, redefining a function 
might not be possible. 



END Statement 

Use the END statement in all programs. Future 
versions of BASIC might require the use of this 
statement . 
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Exponentiation 

Use the circumflex character ( a ) rather than two 
asterisks (**) for exponentiation. 



File Numbers 



Obsolete Forms 

Avoid using any statement or function that causes 
the compile-time diagnostic OBSOLETE FORM. The 
BASE statement, the CHANGE statement, and the 
SUBSTR$ function are examples of obsolete forms 
that should be avoided. 



Do not use file numbers greater than 255. Larger 
values might not be supported in future versions of 
BASIC. 



FOR... NEXT Loops 

Do not transfer control into a FOR... NEXT loop. 

Results are unpredictable and future versions of 
BASIC might not allow it. 



Function Names Used as Variables 

Do not use a function name as a variable within a 
function definition (do not place the name on the 
right side of an equals sign) . This usage might 
not be permitted or might generate code with a 
different meaning in future versions of BASIC. 



IF... GOTO Statement 

Avoid using this statement. Use IF. ..THEN instead. 
IF... GOTO might not be supported in future versions 
of BASIC. 



Keywords and Language Elements 

Do not run keywords and variable names together. A 
statement such as PRINTT might not be supported in 
the future versions of -BASIC. 



Line Numbers 

Do not use line number since it might not be 
supported in future versions of BASIC. 



ON ne THEN Statement 

Avoid using ON ne THEN lnj^,ln2, . . . .Inn because 
this form might not be supported in future versions 
of BASIC. ON ne GOTO lni,ln2, . . . ,lnn should 
be used instead. 



Presetting Variables 

Do not assume that variables will be preset to zero 
or null. Future versions of BASIC might not auto- 
matically preset variables. 



Referencing Functions 

Define functions before referencing them. Future 
versions of BASIC might require the function defi- 
nition to appear before the first reference to the 
function. 



RND Function 

Use the RND function without a parameter. The 
parametric form might not be supported in future 
versions of BASIC. 



Simple and Subscripted Variable Names 

Do not use the same name for array variables as for 
scalar variables. The use of the same name for 
both types of variables Is not supported by stan- 
dard BASIC and might not be supported In future 
versions. 



Multiple Assignments 



Do not use multiple assignments. The form of such 
assignments might change in future versions of 
BASIC. 



SUBSTR Function 

Do not use the SUBSTR function, 
substring notation instead. 



Use the equivalent 
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DIFFERENCES BETWEEN BASIC 3.5 AND BASIC 3.4 



BASIC 3.5, the subject of this reference manual. Is 
a version of BASIC 3.4 that was updated to conform 
to the American National Standard (ANSI) for Minimal 
BASIC. Due to syntax and semantic changes to the 
product, BASIC 3.5 is not 100 percent upward com- 
patible with BASIC 3.4. Therefore, some BASIC 3.4 
programs operate differently when compiled under 
BASIC 3.5. The following text Identifies these 
differences and, where possible, provides sugges- 
tions for modifying the program to compensate for 
the affected change. Differences between 3.4 and 
3.5 that are extensions (does not effect existing 
3.4 programs) are not listed. BASIC 3.4 binaries 
continue to operate the same, except in those cases 
noted below. 



ARRAY BOUNDARIES 

Unless otherwise instructed, in BASIC 3.5 the lower 
boundary (origin) of all arrays in a program is 
zero; in BASIC 3.4 the lower boundary is one. 
Therefore, arrays in BASIC 3.5 normally have one 
more element along each dimension than the arrays 
in BASIC 3.4. The OPTION statement using BASE n 
(was BASE statement in BASIC 3.4) is provided to 
set the lower boundary of an array to zero or one. 
Thus, if array subscripts are to begin with ele- 
ment 1 rather than element 0, use OPTION BASE 1 to 
change the origin to 1. (See OPTION statement 
described in section 3.) 



ROUNDING VERSUS 
TRUNCATION OF NUMERIC 
VALUES 

BASIC 3.5 rounds all index, subscript, or pointer 
values that require integer values (for example, 
subscripts, TAB arguments, substring indexes, and 
ON statement indexes; BASIC 3.4 truncates these 
values to integer values. To truncate numeric quan- 
tities in a BASIC 3.5 program, use the INT function 
to force the truncation. 



TRAILING BLANKS IN 
UNQUOTED STRINGS OF DATA 
STATEMENTS AND INPUT 

BASIC 3.5 ignores all trailing blanks in unquoted 
strings of DATA statements and INPUT replies that 
use standard delimiters. BASIC 3.4 returns all 
trailing blanks of unquoted strings, unless the 
trailing blanks are at the end of a line (a string 
not followed by a delimiter), then BASIC 3.4 ignores 
the blanks. If trailing blanks are important to a 
program, enclose all unquoted strings with trail- 
ing blanks within quotation marks (for example: 
STRINGl. STRING2,"THEN END A"). 



INPUT VALIDATION 

BASIC 3.5 validates all interactive responses to an 
INPUT request as to data type, number of data items 
input, and range of data values, before assigning 
any of them to the program. BASIC 3.4 validates 
and assigns INPUT responses one at a time. No 
programming changes can compensate for this 
difference. 



NOT ENOUGH DATA 

™»,'L^"^"^^^''^^°' ^""^^ is entered in response to an 
INPUT request, BASIC 3.5 permits either the entire 
INPUT response or only the additional items required 
to satisfy the request to be reentered. To add 
tfar' ,^®^^" *^^^ "^^"^ response with a comma. 
BASIC 3.4 only allows the additional data required 
to be entered to complete the INPUT request. No 
programming changes can compensate for this differ- 
ence. This BASIC 3.5 response also applies to 
BASIC 3.4 binaries run under the BASIC 3.5 library. 

NUMERIC DATA READ AS 
CHARACTER STRING DATA 

In BASIC 3.5, unquoted strings in DATA statements 
that look like numbers can be read either as num- 
bers or as strings. In BASIC 3.4, this type of 
string can only be read as numbers. 

OUTPUT FORMATTING 

BASIC 3.5 prints all integers greater than or equal 
to 1E7 in E Format (d.ddddddE+nn) if no other for- 
mat is specified. In BASIC 3.4. integer values up 
to 1E9 are printed in integer format. 

PRINT ZONES 

If a print zone is exactly filled in BASIC 3.5, the 
comma separator causes the print mechanism to skip 
over the next print zone causing spaces to be out- 
put; in BASIC 3.4, the next print zone is not 
skipped if the current print zone is exactly filled. 

l^<!Tr^?^f '^^^^^ "*'^" output must conform to 
BASIC 3.4 output, replacing the comma separator 
with a semicolon causes the print mechanism to be 
positioned at the first character of the next print 
zone . 



TAB POSITION 

In BASIC 3.5, TAB(n) causes the print mechanism to 
be positioned so that the next character prints in 
column n. In BASIC 3.4, TAB(n) positions the print 
mechanism so that the next character prints in 
column n+1. If positioning Is critical, add 1 to 
all TAB arguments in the equivalent BASIC 3.5 
program. 
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NEGATIVE TAB ARGUMENT 
VALUES 

When BASIC 3.5 encounters a negative TAB value 
(TAB(n) where n<0), It resets the TAB value to 1 
and Issues an execution time warning diagnostic 
(error message number 197). BASIC 3.4 Ignores neg- 
ative TAB values. Change negative TAB values to 
positive TAB values in a BASIC 3.5 program to 
compensate for this difference. 



BACKWARD TABBING 

In BASIC 3.5, TAB(n) positions the print mechanism 
to poslton n on the next line. If n is less than 
I the current print position; BASIC 3.4 Ignores 
backward tabbing. 



COLLATING SEQUENCE 

ASCII is the standard collating sequence used by 
BASIC 3.5 for string comparison operations and for 
computing values of the CHR$ and ORD functions 
regardless of the character set being used. In 
BASIC 3.4, the collating sequence depends upon the 
character set being used. It is display code if a 
normal, non-ASCII character set is being used; it 
Is ASCII if an extended ASCII character set is 
being used. In BASIC 3.5, the OPTION statement 
using COLLATE can be used to select the collating 
sequence native to the character set currently 
being used by the program. 



FOR...NEXT LOOP CONTROL 
VARIABLE 

In BASIC 3.5, the value of the loop control vari- 
able, upon normal exit from a FOR block via Its 
NEXT statement, Is the first value not used; in 
BASIC 3.4, it is the last value used. That is, in 
BASIC 3.5 the control variable value is the last 
value used plus one additional STEP value (+1 vrtjen 
no STEP value is specified), and in BASIC 3.4, the 
control variable value is the last value used upon 
exit from a loop. 



INPUTTING ARRAY DATA 

BASIC 3.5 allows an entire array being read by a 
MAT INPUT statement to appear on one INPUT line in 
row order. A delimiter following the last item on 
the line indicates that the response is continued 
on the next line. BASIC 3.4 allows only one row of 
the array in each input reply line. In BASIC 3.5, 



if only one row of the array is entered, the diag- 
nostic NOT ENOUGH DATA is received. The data for 
the complete matrix can be reentered or the 
remaining data can be entered to complete the 
matrix by beginning the response with a comma. 
This BASIC 3.5 feature also applies to BASIC 3.4 
binaries run under the BASIC 3.5 library. 

REFERENCING DET BEFORE INV 

Referencing the DET function before a matrix has 
been inverted via the INV function is considered a 
fatal error by BASIC 3.5. BASIC 3.4 simply returns 
a value of zero if no matrix has been inverted. 

REDIMENSIONING RESULT 
MATRICES 

If required, BASIC 3.5 automatically redimensions a 
result matrix to accommodate the result; BASIC 3.4 
generates a fatal error if the result matrix does 
not conform to the previously specified dimensions. 
No programming change can compensate for this dif- 
ference. Redtmensioning also applies to BASIC 3.4 
binaries run under the BASIC 3.5 library. 

INVERTING A SINGULAR 
MATRIX 

BASIC 3.5 does not diagnose as fatal error an 
attempt to invert a singular matrix; BASIC 3.4 does 
diagnose this as a fatal error. The DET (determi- 
nant) function must be used in BASIC 3.5 programs 
to determine if the matrix was singular or nearly 
singular; when DET returns a zero, it indicates that 
the matrix Is singular. 

INVALID USE OF THE CHR$ 
FUNCTION 

If the argument given to the CHR$ function is not 
the ordinal of any character in the selected col- 
lating sequence, BASIC 3.5 generates a fatal error 
and BASIC 3.4 returns a null string and no diag- 
nostic. Use the ON ERROR mechanism to simulate 3.4 
under 3.5. 



PRINT USING INTEGER FORMAT 

In BASIC 3.5, values are rounded to an Integer when 
printing according to an integer PRINT USING image 
field. In BASIC 3.4, these values are truncated. 
To force truncation under BASIC 3.5, use the INT 
function in the PRINT list. 
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IMPLEMENTATION-DEFINED FEATURES 



BASIC, Version 3.5, is a revision of BASIC, 
Version 3.4. BASIC 3.5 conforms to the American 
National Standard for Minimal BASIC as specified in 
document ANSI X3. 60-1 978 published by the American 



National Standard institute. The ANSI publication 
identifies some features as implementation-defined. 
These features and their definitions for BASIC 3.5 
are shown in table G-1. 



TABLE 6-1. IMPLEMENTATION-DEFINED FEATURES 



Item 



Initial value of numeric and string 
variables 



End-of-line {End of source line) 

End-of-input reply 

Precision of numeric constants 

Range of numeric constants 
Length of string constant 

Length of line 



Length of string associated with a string 
variable 

Precision of numeric value associated with 
a numeric variable 

Range of numeric value associated with a 
numeric variable 

End-of -print line 



Print significance-width (d) 
Print extra-width (e) 

Length of print zone 

Margin 
Input-prompt 



BASIC 3.5 Definition/Comment 



Numeric variables are preset to zero; string variables are 
preset to null. However, your program should not depend 
on this Initialization. See Future System Migration 
Guidelines, appendix E. 

Indicated with carriage return when entering source lines 
at a terminal, with end-of -card when entering statements 
on cards. Trailing blanks are ignored by the BASIC com- 
piler or removed by the operating system. Internally, 
end-of-line is denoted by a zero-byte terminator. 

Same as end-of-line. 

Approximately equal to 13+ decimal digits. Not all stan- 
dards of BASIC support 13 digits of precision because only 
six digits are required. 

Range can be from 3.13152E-294 to 1.26501E+322. However, 
the standard only requires a range of lE-38 to lE+39. 

Length is limited only by line length. Since line length 
is longer for BASIC 3.5 than required by the ANSI stan- 
dard, string constants can be longer than required by 
the ANSI standard. 

Length can. be 150 characters; the ANSI standard requires 
only 72 characters. 

Length can be 131,070 6-bit characters; the ANSI standard 
requires only 18 characters. 

Same as for precision of numeric constant. 



Same as for range of numeric constant. 



Internally, it is a zero-byte terminator; last two or more 
6-bit characters of a word are zero. 

Width is six digits, the minimum required by the ANSI 
standard. The d controls the number of digits printed 
when the default format is used. 

Width is three digits. The minimum required by the ANSI 
standard is two, but BASIC 3.5 uses three to accommodate 
the large exponents available on CYBERs. 

Length is 15 characters. The minimum required by the ANSI 
standard is d+e+6=15. 

Margin is 75 characters. 

Prompt is "?", the same as recommended by the standard. 
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SAMPLE BASIC PROGRAMS 



H 



The following sample programs illustrate some common 
features of BASIC. They are not presented as models 
for programming or mathematical techniques in 
problem solving. 

The program In figure H-1 Illustrates the use of 
the DEF and GOSUB statements to calculate the value 
PI by evaluation of a series. 

The program in figure H-2 illustrates the use of a 
FOR. ..NEXT loop to calculate a table of factorials. 



The program in figure H-3 illustrates the sorting 
of a list of names (string variables) into alpha- 
betic order. 

The program in figure H-4 illustrates the inversion 
of a Hubert Matrix (n times n) by using BASIC 
matrix operations. 

The interactive terminal session shown in figure H-5 
illustrates the CYBER Interactive Debug (CID) 
facility under NOS. 



00100 DEF FNA(D)=(1/D) 

00110 DEF FNB(D)={D-FNA(B)) 

00120 DEF FNC(D}=(D+FNACB)) 

00130 PRINT "CALCU.ATE A VALUE FOR PI" 

00140 PRINT 

00150 LET Z=1 00000 

00160 PRINT "NUMBER OF ITERATIONS";Z 

00170 PRINT 

00180 LET A=1 

00190 LET B=3 

00200 FOR 1=1 TO Z 

00210 LET A=FNB<A) 

00220 GOSUB 00280 

00230 LET A=FNC(A) 

00240 GOSUB 00280 

00250 NEXT I 

00260 PRINT "PI=";4*A 

00270 STOP 

00280 LET B=B+2 

00290 RETURN 

00300 END 



produces: 

CALCULATE A VALUE FOR PI 
NUMBER OF ITERATIONS 100000 

PI= 3.1416 



00100 LET A=1 

00110 LET Z=20 

00120 FOR 1=1 TO Z 

00130 LET A=A*I 

00140 PRINT "FACTORIAL"; I,A 

00150 NEXT I 

00160 END 



produces: 



Figure H-1. Using DEF and GOSUB Statements 



FACTORIAL 1 


1 


FACTORIAL 2 


2 


FACTORIAL 3 


6 


FACTORIAL 4 


24 


FACTORIAL 5 


120 


FACTORIAL 6 


720 


FACTORIAL 7 


5040 


FACTORIAL 8 


40320 


FACTORIAL 9 


362880 


FACTORIAL 10 


3.62880E+6 


FACTORIAL 11 


3.99168E+7 


FACTORIAL 12 


4.79002E+8 


FACTORIAL 13 


6.22702E+9 


FACTORIAL 14 


8.71783E+10 


FACTORIAL 15 


1.30767E+12 


FACTORIAL 16 


2.09228E+13 


FACTORIAL 17 


3.55687E+14 


FACTORIAL 18 


6.40237E+15 


FACTORIAL 19 


1.21645E+17 


FACTORIAL 20 


2.43290E+18 


Figure 


H-2. Using F0R...NEX1 
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00100 PRINT "UNSORTED 


LIST" 




00110 READ N 






00120 FOR 1=1 TO N 






00130 READ A$<I) 






OOUO PRINT A$(I) 






00150 NEXT I 






00160 FOR 1=1 TO N-1 






00170 FOR J=I+1 TO N 






00180 IF A$(I)<A${J) 


THEN UU220 




00190 LET T$=A$(I) 






00200 LET A$(I)=A$(J) 






00210 LET A$(J)=T$ 






00220 NEXT J 






00230 NEXT I 






00240 PRINT 






00250 PRINT "SORTED LIST" 




00260 FOR 1=1 TO N 






00270 PRINT A$(I) 






00280 NEXT 1 






00290 STOP 






00300 DATA 8 






00310 DATA MARY, JOHN, 


SUE,JOE,JACK,BILL,TED,ANN | 


00320 END 






produces: 






UNSORTED LIST 






MARY 






JOHN 






SUE 






JOE 






JACK 






BILL 






TED 






ANN 






SORTED LIST 






ANN 






BILL 






JACK 






JOE 






JOHN 






NARY 






SUE 






TED 







00100 DIM A (20,20) ,B (20, 


20) 




00110 READ N 






00120 MAT A=CON(N,N} 






00130 MAT B=CON(N,N) 






00140 FOR 1=1 TO N 






00150 FOR J=1 TO N 






00160 LET A(I,J)=1/(I+J- 


■1) 




00170 NEXT J 






00180 NEXT I 






00190 MAT B=INV(A) 






00200 MAT PRINT B; 






00210 DATA 4 






00220 END 






produces: 






-6.66667E-2 -.266667 4. 


-12. 


9.33333 


-.266667 14.9333 -104. 


192. - 


-102.667 


4. -104. 960. -1980. 


1120. 




-12. 192. -1980. 4320. 


-2520 




9.33333 -102.667 1120. 


-2520 


. 1493.33 



Figure H-4. Using Matrix Operations 



Figure H-3. Sorting String Variables 
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/basic 

OLD, NEW, OR LIB FILE: oLd,db1 

READY, 
debug (on) -« 



READY, 
list 

100 LET A=2.1 

110 LET B=A*A 

120 LET C$="SUBSTRING ADDRESSING" 

130 PRINT A,B 

140 PRINT C$ 

150 END 



READY, 
run-^ 



CYBER INTERACTIVE DEBUG 

? sb L.110-* 

? go-^ 

*B #1, AT L.110-* 

? print a,b -* — 

2.1 0-« 

? cb 1.110 -* 



? St line L. 110. ..1. 120-*- 
? goto 100 



*T #1, LINE AT L.110 

? let a=2.3-* 

? go- 



*T #1, LINE AT L.120 

? let b=30-« 

? print a,b 

2.3 30 
? ct * -• 



? goto 100 -« — — 

2.1 4,41 

SUBSTRING ADDRESSING 

*T #17, END IN L.150 — 

? print a,c$ 

2.1 SUBSTRING ADDRESSING 

? let a=20 

? let c$=c$(1:9)-* 

? print a,c$ 

20 SUBSTRING 
? Lv -•- _ 

P.DB1 

A = 20, B 
? goto 100 -*- 

2.1 4.41 

SUBSTRING ADDRESSING 

*T #17, END IN L.150 
? quit -* 



4.41, C$ = "SUBSTRING" 



SRU 



10.236 UNTS, 



RUN COMPLETE, 
debug (off) -^- 



READY. 



Enters CIO facility command while in the BASIC subsystem. 



Compiles and executes the BASIC program. 



Sets breakpoint at 110. 

Initiates execution. 

Program reaches breakpoint. 

Displays values of variables A and B. 

B=0 since line 110 has not yet executed. 

Clears breakpoint at line 110. 

Sets line traps. 

Resumes execution at line 100. 

LINE trap detected at line 110. 

Assigns 2.3 to variable A. 

Resumes execution. 



Assigns 30 to variable B. 



Clears all traps. 

Resumes execution at line 100. 



• Default trap occurs at program termination. 

Replaces C$ with substring of CJ. 

Lists all program values for program DBl. 

Resumes execution at line 100. 

Terminates this CID session. 
Exits CIO environment. 



Figure H-5. Using CID Under NOS 
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IN-LINE EDITING COMMANDS 



This appendix briefly covers the In-line editing 
(lEDIT) commands available when the user is in 
BASIC subsystem under NOS 2/IAF. lEDIT is an 
extension of the in-line editing functions avail- 
able under NOS 1/IAF. For a detailed presentation 
of these commands, see Volume 3 of the NOS Ver- 
sion 2 reference set. 



In the BASIC subsystem, lEDIT allows the user to 
perform some fundamental editing functions on the 
user's files without explicitly entering or exiting 
the editor. lAF recognizes lEDIT commands and 
generates calls to the in-line editor. This allows 
the user to intermix lEDIT commands with operatina 
system commands. * 



The file to be edited is called the edit file. To 
use lEDIT commands, the edit file must be the pri- 
mary file and a line-numbered file. The edit file 
is positioned to beginning-of-lnformation (BOI) 
before and after each lEDIT command. The edit file 
will be altered whenever an lEDIT command which 
changes the content of the file is successfully 
executed. 



lEDIT commands consist of a command name followed 
by parameters. The command name must be separated 
from the parameters by a non-blank separator; also, 
parameters must be separated from each other by a 
non-blank separator. In this appendix, a comma is 
always used as the separator. 



PARAMETERS 

lEDIT conjnand parameters must be specified in the 
order defined by each command format. The MOVE, 
DUP, and READ command parameters are position 
dependent; therefore, embedded parameters which are 
omitted must be explicitly indicated by two succes- 
sive separators. For all other commands, omitted 
parameters need not be explicitly indicated by two 
successive separators. 

The parameters used by the lEDIT commands are the 
lines parameter, the string parameter, and the file 
parameter. The formats of these parameters are 
discussed in the following paragraphs. 



LINES PARAMETER 

The lines parameter specifies a noncontiguous set 
of lines in the edit file. The general format of 
the lines parameter is as follows: 

m,n,p..q,r,s..t,u..v,w 



where m, n, p, q, r, s, t, u, v, and w are line 
mmbers. If a line in the edit file is referenced 
more than once in a lines parameter, a syntax error 
occurs. 



STRING PARAMETER 

The string parameter consists of a sequence of 
characters (possibly the null string) with a string 
delimiter at the beginning and end of the sequence. 
The general format of the string parameter is as 
follows: 

/string/ 

The string delimiter cannot occur within the string. 
A valid string delimiter is any character except a 
digit, a comma, an asterisk, a colon, or a space. 
In this appendix, a slash is used as the string 
delimiter. 



FILE PARAMETER 

The file parameter specifies a file name consisting 
of one to seven characters where each character is 
a letter or digit. Either uppercase or lowercase 
letters can be used. 



COMMANDS 

The following paragraphs present the formats and 
functions of the lEDIT commands. 



ALTER COMMAND 

The ALTER command allows the user to change the 
specified string of characters in the edit file. 
The format of the ALTER command is as follows: 



ALTER, lines, /stringl/string2/ 



lines 



A line and/or a range of lines in the 
edit file. This parameter Is optional. 
If omitted, all lines in the file 
are considered when the command is 
executed. 



stringl The character string to be replaced. 
This parameter is required; however, 
it can be the null string. 

string2 The character string to replace 
stringl. This parameter is required; 
however, it can be the null string. 
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DELETE COMMAND 



MOVE COMMAND 



The DELETE command deletes the specified line or 
lines containing the specified character string 
from the edit file. The format of the DELETE 
conmand is as follows: 

DELETE, lines, /string/ 

lines A line and/or a range of lines to be 
deleted. This parameter is optional. 
If omitted, all lines containing the 
specified string are deleted. 

string A string of characters that must be 
contained in all lines that are de- 
leted. This parameter is optional. 
If omitted, all specified lines are 
deleted. 

Note that although both the lines parameter and the 
string parameter are optional, at least one must be 
specified. 



The MOVE command moves lines to another place in 
the edit file. The format of the MOVE command Is 
as follows: 

MOVE, lines, n,z 

lines The line and/or range of lines to be 
moved. This parameter is required. 

n The line number after which the lines 
being moved are to be inserted. This 
parameter is optional. If omitted, 
the default line number is the number 
of the last line in the edit file. 

z The line number Increment for the lines 
being moved. This parameter is op- 
tional. If omitted, the default value 
Is 1. 



READ COMMAND 



DUP COMMAND 

The DUP conmand allows the user to duplicate lines 
in the edit file. The duplicated lines can be 
Inserted anywhere in the edit file. The DUP com- 
mand copies the specified lines; It does not move 
or delete the original lines. The format of the 
DUP command is as follows: 

DUP, lines, n,z 

lines A line and/or range of lines to be 
duplicated. This parameter is required. 

n The line number after which the dupli- 
cated lines are to be Inserted. This 
parameter is optional. If omitted, 
the default line number is the number 
of the last line In the edit file. 

z The line number Increment for the 
duplicated lines. This parameter is 
optional. If omitted, the default 
value is 1. 



The BEAD command adds the contents of the specified 
file to the edit file. The user can control Where 
the lines being added to the edit file will be 
inserted. The format of the BEAD command is as 
follows : 

READ, file, n,z 

file The name of the file which is being 
added to the edit file. This parameter 
is required. 

n The line number after which the lines 
being added should be inserted. This 
parameter is optional. If omitted, the 
default line number is the last line 
in the edit file. 

z The line nvimber increment for the lines 
being added. This parameter is op- 
tional. If omitted, the default value 
is 1. 



WRITE COMMAND 



LIST COMMAND 

The LIST command displays lines in the edit file. 
The user can also use the LIST command to display 
lines In the edit file which contain the specified 
character string. The format of the LIST command 
is as follows: 

LI ST , 1 ines , / s t ring/ 

lines The line and/or range of lines to be 
displayed. This parameter is optional. 

string The character string that must be 
contained in all lines (rtiich are dis- 
played. This parameter is optional. 

If both the lines parameter and the string param- 
eter are omitted, the entire edit file is displayed. 



The WRITE command writes lines from the edit file 
to the specified file. The line numbers associated 
with the lines in the edit file are Included in the 
data written to the specified file. The format of 
the WRITE command is as follows: 

WRITE , file , lines ,/ string/ 

file The name of the file to which the 
specified lines are written. This 
parameter is required. 

lines The line and/or range of lines to 
written to the specified file. This 
parameter is optional. 

string The string of characters which must be 
contained in all lines written to the 
specified file. This parameter is 
optional. 
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If both the lines parameter and the string parameter 
are omitted, the entire edit file. Including line 
numbers. Is written to the specified file. 



WRITEN COMMAND 

The WRITEN command writes lines from the edit file 
to the specified file. The line numbers associated 
with the lines In the edit file are not Included in 
the data written to the specified file. The format 
of the WRITEN command is as follows: 



WRITEN, file, lines, /string/ 



file The file name to which the lines are 
to be written. This parameter is 
required. 

lines The line and/or range of lines to be 
written. This parameter is optional. 

string The character string srtiich must be 
contained in all lines written to the 
file. This parameter is optional. 

If both the lines parameter and the string parameter 
are omitted, the entire edit file, excluding line 
numbers, is written to the specified file. 
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LANGUAGE SUMMARY 



A summary of BASIC langtiage formats appears In this 
appendix. Detailed information for each format Is 
referenced by page number. Similar information is 
also contained on the BASIC language command summary 
card, publication number 60482800. 

STATEMENTS AND FUNCTIONS 

Throughout the following summary tables these 
notations are used. Terms in these tables that are 
in lowercase represent words or symbols supplied by 
the programmer. 

a Alphabetic identifier 

c Numeric or string constant 

ch Any character or carriage return 

d Delimiter 

e Expression, constant, or variable 

f Format specification 

1 Letter 

Ifn Logical file name 

In Line number 

m Matrix identifier (1- or 2-dimenslonal array) 

na Numeric array name 

nc Numeric constant 

ne Numeric expression, constant, or variable 

r Relational expression 

sc String constant 

se String expression, constant, or variable 

snv Simple numeric variable 

stm Executable statement 

stv String variable 

sv Simple variable 

V Variable Identifier (simple, subscripted, 
numeric, or string) 

x Constant, variable, function, or numerical 
expression 

[ ] Enclosed elements are optional. 

{ } Only one element must be selected . 

... Repeat elements as needed. 



BASIC STATEMENTS 



Statement Format 



APPEND fine 



CAI I iiibnm (• i ,021 • • . ■■ ^o ' 



''HATN se 



CHA» *ne 



CLOSE Snu 



DATA Ci,C2 Cn 



DEF FNa [(svj ,SV2, . . . ,sv2o)]=ne 



DEF FNaS [(svj,sv2 sv2o)]=se 



DEF FNa ( (sv| ,8V2,>. > jSVjg}] 



DEF FNa$ [(svj^ ,SV2,...,SV20)] 



DELIMIT (chj ),..., (ch3) 



DELIMIT Jfne.Cchi) (ch3) 



DIM miCnci^ t. 3) , .. . ,mn(nci nc3) 



END 



FILE *nei-lfni,#ne2-lfn2, . . . ,#nej,=lfn^ 



FNEHD 



FOR snv=nej TO ne2 [STEP ne3] 



GOSUB In 



GOTO In 



Page 

7-6 

6-3 

6-5 

6-5 

7-4 

7-25 

5-U 

5-11 

5-13 

5-13 

7-12 

7-12 

3-3 

3-5 

7-3 I 

5-13 

4-3 

6-1 

4-1 
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Statement Format 



IF END fne 



JTHEN ». 
iGOTOr" 






IF 






IFMO»E#ne{™J}ln 



(image) 
: character string 



INPUT Vi,V2,....Vn 
INPUT #ne,vi,V2.... ,Vn 
JUMP ne 
ILET]|WV3.—„J. 

MARGIN nc2 

MARGIN #nej,ne2 

MAT n=>m 

MAT mi=m2"^3 

MAT mi=iB2~™3 

MAT mi=sTn2*W3 

HAT m»(ne)*m 

MAT m-lNV{m) 

MAT m-niH(ra) 

MAT ra=Z;ERl(nej[,ne2l)] 

MAT m--=C0N[(nei[,ne2l)l 



Page 

7-5 

4-2 

4-3 

7-5 

7-17 

7-10 
7-10 
4-6 
3-1 

7-24 

7-24 

8-2 

8-3 

8-3 

8-4 

8-4 

8-7 

8-8 

8-6 

8-5 



Statement Format 



MAT m=IDN[ (ne j [ .ncj] ) ] 



MAT READ I ;i'"'2. ••;.«% { 

^ vne , mpm2 1 • • • ,m^ f 

MAT PRINT n^ ""2 ""S /•••<»» 

MAT PRINT USING '^"'"1 ^ "2 ''•"'»"/ } 
(se,m| d m2>*«>mn u I 



MAT PRINT #ne USING .' ^"■"l ^ m2 d...m„ d i 
( &e,mj d m2 o> • -m^^ d I 



MAT INPUT I"' '"Z "^i I 

) Vne,mi ,m2> ■ • • .""n f 



MAT HR[TE #ne,m, ,m_ m 

12 u 



NEXT snv 



NODATA Jn 



SODATA tfne. In 



OS ATTENTION GOTO In 



ON ATTENTION THEN In 



ON ATTENTION 



ON SR&OBi GOTO In 



ERROR THEN In 



ON ERROR 



ON ne COSUB lnj^,ln2i • • • |In„ 



„„ ) GOTO I , , 1 

ON ne {then I "l'^"2 l-"n 



OPTION 



( BASE >°> r COILATE ' STANDARD V 
jBASE I J J. [.COLLATE ^jj^j^^g 

) __,, ,„ .1 STANDARD ] [ | H i 

I COLLATE -, jj^^j^,^ ^ [, BASE , J ^ j j 



Page 
8-6 

8-9 

8-11 
8-12 
8-12 
8-10 

8-9 
4-3 
7-4 
7-4 
4-5 
4-5 
4-5 
4-6 
4-6 
4-6 
6-2 
4-2 

3-2 



• J-2 
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Statement Format 



PRINT ej d 62 d...ejj d 



PRTNT USING {^2:^1 ,\^2,^-:::;i^;. 



PRINT #ne,e, d 62 (l...e„ d 



PRINT #ne USING In.e^ d C2 ii...e„ d 



RANDOMIZE 



READ Vj,V2,...,Vn 



READ fnCiVj.Vj v 



REM LrST. j^j^i^ , 



(ALL 1 
REM TRACE, I PART 
f NONE I 



REM ch|...chQ 

BESTORE 

RESTORE f ne 

RETUBH 

SET #oe|,ne2 

SETDICECS ne 

STOP 

MRITE #ne,ej,e2,...,eQ 

BASIC FUNCTIONS 

Function 

ABS(ne) 

ASi"u h) or ASCf,i*>r) 



Page 



7-13 



7-15 



Function 



ASL(x) 



ATN(ne) 





■ IIR'! ne) 


7-13 






fLK^A) 


7-17 






CLKS 


5-3 






COS(ne) 


7-26 






C0TOie> 


7-7 


DAT$ 


12-4 


DET or DETfin) 


9-1 


ESU3CJ 




ESHCxj 


3-4 


EXP<ne) 


7-4 


INT(ne) 


7-4 


LHI{se^ 


6-2 


LGT(ne) 


7-8 


LOC(iie) 


7-24 


LOF(ne) 


3-4 


LOG(ne) 


7-7 


LPAD$<ae,ne) 




LIRM$(se) 




LWRCS(se) 


Page 


tlAX(nej,...,nc2o} 


5-1 


MINCn«?|,...,nfi2o) 


5-4 


NXL(ne) 



Page 

4-8 

5-2 

5-4 

5-3 

5-3 

5-2 

5-2 

5-4 

5-2 

4-8 

4-9 

5-2 

5-2 

5-5 

5-2 

7-9 

7-9 

5-2 

5-6 

5-6 

5-7 
5-2 

5-2 

4-9 
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J-3 



Function 



0%]>(se) 



P0S{sej,ee2,ne) or P0S(se|,se2) 

«m or I!ND(ne) 

ROFCne) or ROF(ne,ne) 

RFAD${se,ne) 

RPT$l.'<t.-,nei 

KTKM$(sG) 

SGN(ne) 

SIN(ne) 



Page 
5-7 



5-2 



Function 



SQR(ne) 



5-7 STR$(ne) or STR$(ne,se) 



TAB(ne) 



5-2 


TAN(ne) 


5-8 


TIM(x) 


5-8 


UPRC$<8e) 


5-9 


USRS 


■5-2 


VALfspl 



Page 



5-2 



5-9 



7-15 



5-2 



5-4 



5-9 



5-4 



5-9 



5-2 
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BASIC CONTROL STATEMENT PARAMETERS 



Tables K-1 through K-4 contain BASIC control state- binary output options, and program execution 
ment parameters that Include compiler listable options, 
output options, compiler input options, compiler 
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TABLE K-1. COMPILER LISTABLE OUTPUT PARAMETERS 



Parameter 


Parameter 
Format 


Description 


Remarks 


Compile-Time 
List File (L) 


omitted 

L 

L=lfn 

L=0 
(zero) 


For batch jobs, default list file is 
OUTPUT. For interactive jobs, 
default is no compiler Ustable out- 
put file (same as L=0). 

Listable compiler output on file 
OUTPUT. 

Listable compiler output on file 
Ifn. 

No compile list file. 


If the program is in ASCII, the 
listing file must be sent to the 
ASCII printer, not to the normal 
64-character printer. 


Listing Options 
(LO) 


omitted or 
LO or LO=S 

L0=0 
(letter 0) 

L0=0/0 

zero/ 

letter) 

L0=0 (zero) 


Produces a source listing on a file 
specified by the L parameter. 

Produces a source listing and an 
object listing on L file. 

Produces an object listing on L 
file. 

Turns off all list options. 


This parameter can have multiple 
values associated with it. 
Values are separated by slashes 
and are cumulative. 

S is on by default. 

The number zero (0) turns off 
all previously specified values. 
In this case, it turns off the 
default S value. The letter 
turns on object listing. 


Burstable List- 
ing Control 
(BL) 


omitted 
BL 


Page ejects between portions of the 
compiler output (source listing and 
object listing) are suppressed; 
listing is not burstable. If the 
compile-to-memory and execute-in- 
one-step option is selected (no B 
option), both the page between the 
compiler output eject and the 
first line of execution output is 
suppressed; four blank lines' are 
listed instead. However, if less 
than five printable lines remain 
on the last page of the compiler 
output, a page eject is Issued 
rather than printing four blank 
lines. 

Includes page ejects between com- 
piler output portions and between 
the compiler output and the first 
line of execution output. 


The installation can change the 
meaning of BL omitted to that 
specified by the BL option that 
follows. 

Does not apply If the L file is 
the terminal. 


Print Density 
Control (PD) 


omitted 

PD=6 

PD=8 or PD 


Specifies the print density (lines- 
per-inch) currently in effect for 
the job on the files specified by 
the L and K oarameters. (NOS 2 
feature only) 

For L and K files, sets print 
density to 6. Automatically resets 
after all output is written to the 
files. 

For L and K files, sets the print 
density to 8 and automatically 
resets after output Is written to 
the files. 


Only effective on an output 
device whose density can be 
changed. 
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TABLE K-1, COMPILER LISTABLE OUTPUT PARAMETERS (Contd) 



Parameter 



Page Size 
Control (PS) 



Cotnpile-Time 
Error File (E) 



Error Level 
Control (EL) 



Parameter 
Format 



omitted 



PS=n 

(where n is 
4<nS32768) 



omitted 

E 
E=lfn 



omitted or 
EL=W 



EL=F 



Description 



Uses the page size (number of print- 
able lines per page excluding upper 
and lower margins for the file) cur- 
rently in effect for the job. (NOS 
2 feature only) 

Establishes the L file page size as 
n printable lines per page. This 
parameter has no effect on execution 
output. Lines are not counted at 
execution time. 



Compile-time error diagnostics 
written on the file specified by 
the L parameter. If there is no L 
file (L=0), diagnostics are written 
to file OUTPUT. 

Compiler error diagnostics are 
written on file ERRS. 

Error diagnostics are written on 
file Ifn. 



Remarks 



Four is the smallest possible 
page size because each page must 
include a 3-1 ine header and 
at least one additional line. 



Writes warning diagnostics and 
fatal compiler diagnostics on the 
file specified by the E parameter. 

Fatal error diagnostics, but no 
warning diagnostics, are written 
on the E file. 



If the program is in ASCII, the 
listing file must be sent to the 
ASCII printer, not to the normal 
64-character printer. 



Diagnostics are listed only once 
even when the file specified by 
the E parameter is the same as 
that specified by the L param- 
eter. 



Parameters 



TABLE K-2. COMPILER INPUT PARAMETERS 



ASCII Character 
Set (AS) 



Compile-Time 
Input (I) 



Parameter 
Format 



omitted 
or AS=0 
(zero) 

AS 



omitted 



I=lfn 



Description 



Source program and data files con- 
tain only normal (non-ASCII display 
code) characters. (See appendix A.) 

Source program and data are encoded 
in the extended ASCII character set. 
(See appendix A.) Program runs in 
ASCII mode. 



Compiler input (BASIC source program) 
is on file INPUT. 



Compiler input (BASIC source program) 
is on file COMPILE. 

Compiler input (BASIC source program) 
is on file Ifn. 



Remarks 



Under NOS/BE, a normal character 
set source program is also accept- 
able. 



Normally the progrem ID (name) 
contained in optionally generated 
relocatable binary decks is the 
name of the source file specified 
in the I parameter. The only 
exception occurs when the I file 
is the system file, INPUT or 
COMPILE; in which case the program 
name in the binary deck is BASICXX. 
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TABLE K-3. COMPILER BINARY OUTPUT PARAMETERS 



Parameter- 



Binary File 
(B) 



Parameter 
Formats 



omitted 
or B=0 
(zero) 



B 
B=1fn 



Description 



Compi 1 e-to-memory. Does not produce a 
relocatable binary. 



Binary of compiled program written 
file BIN. 



on 



Binary of compiled program written on 
file Ifn. 



Remarks 



Automatic execution is controlled by 
the GO parameter. See table K-4. 
If in CIO mode (DEBUG (ON) has been 
executed, or DB=ID has been speci- 
fied), a relocatable binary is 
written onto the reserved system file 
ZZZZZDC. 



Debug (DB) 



omitted 



DB=Ot 
(zero) 



DB 

DB=0/Bt 
(zero) 



DB=0/DLt 
(zero) 

DB=0/IDt 
(zero) 

DB=0/TRt 
(zero) 

DB=TR 



DB=ID 



Trace feature, force binary gener- 
ation, and program execution are 
not activated. CID feature is not 
activated unless an explicit DEBUG 
or DEBUG(ON) command has been 
previously issued. 



CID and trace features are not acti- 
vated. 



Same as DB=B/OL. 

Forces binary generation and/ or 
program execution regardless of 
compilation errors. 



Activates program tracing as con- 
trolled by REM TRACE debug lines. 

Activates generation of CID infor- 
mation. 

Traces all statements regardless of 
REM TRACE debug lines. 

Same as DB=B/DL/TR. 



Same as DB=B/DL/ID. 



Binary generation and automatic 
program execution are inhibited by 
compilation errors, and REM TRACE 
statements are only comments. 
Generation of CIO information is 
controlled solely by an explicit 
DEBUG command. 

Same as if omitted except that CID 
information is inhibited even if an 
explicit DEBUG command has been 
issued. 

The default list of parameters. 

See B and GO parameters. A program 
containing compilation errors exe- 
cutes normally until a statement that 
caused the compilation error is en- 
countered. 

See section 9. 



Causes generation of CIO tables and 
special code. 

Turns on the trace feature. 



TR parameter is added to the default 
list of parameters. 

ID parameter is added to the default 
list of parameters. 



TThe zero turns off all previously specified values, 
and DL and turns on TR. 



For example, DB=0/TR turns off default values B 
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TABLE K-4. PROGRAM EXECUTION PARAMETERS 



Parameter 


Parameter 
Formats 


Description 


Remarks 


ASCII Mode 
(AS) 


omitted 
or AS=0 
(zero) 

AS 


Program runs in normal mode. Data 
files are presumed to be in 
normal, not ASCII mode (display 
code, not ASCII, characters). 

Program runs in ASCII mode. All 
character data is interpreted as 
ASCII, not display code. See 
appendix A. 




Execution 

Control 

(GO) 


omitted 

GO 

G0=0 
(zero) 


Compiled BASIC program executes 
without loading provided it was 
compiled-to-memory (i.e., no B 
parameter specified) and there was 
no compilation errors. When the B 
option (table K-3) is specified, 
the compiled program does not exe- 
cute. 

Compiled BASIC program executes 
provided there were no compil- 
ation errors. 

Inhibits execution. Neither the 
compile-to-memory version nor the 
relocatable binary version of the 
BASIC program executes. 


Program can be executed despite com- 
pilation errors. See DB parameter 
table K-3. 

See DB parameter in table K-3. 


Execution-Time 
Input File (J) 


omitted 
or J 

J=lfn 

J=0 
(zero) 


Default input file for compiled 
BASIC program (file read when 
INPUT statement is executed) 
is INPUT. 

Default input file for compiled 
BASIC program is Ifn. 

No default run-time input file. 


Use of the INPUT statement aborts the 
executing BASIC program. 


Execution-Time 
Print File (K) 


omitted 
or K 

K=lfn 


Default output file for compiled 
BASIC program (file used for PRINT 
statement and run-time error diag- 
nostics) is OUTPUT. 

Default output file for the com- 
piled BASIC program is Ifn. 


J and K options control the default 
input and output files of the compiled 
program because BASIC does not provide 
a means of controlling file assign- 
ment for the simple form of the PRINT 
and INPUT statements; also, the normal 
mode of operation, compile-to-memory 
and execute-in-one-step option, pro- 
hibits file assignments from being 
manipulated by intervening loader 
control statements. When loading and 
executing a program from relocatable 
binaries, parameters can be used to 
change the names of the J and K files, 
such as when relocatable binaries have 
been written on file LGO: 

LGO, FILEIN, FILEOUT. 

This causes the program to be loaded 
and executed with INPUT data from 
FILEIN and output PRINT data on 
FILEOUT. 
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TABLE K-4. PROGRAM EXECUTION PARAMETERS (Contd) 



Parameter 


Parameter 
Formats 


Description 


Remarks 


Debug and 
Trace (DB) 




Activates trace feature and forces 
execution regardless of compila- 
tion errors. See table K-3. 




Print Density 
Control (PD) 




Controls density (lines per inch) 
of printed output. See table K-1. 
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ABS function 5-2 

APPEND statement 7-6 

Arithmetic expressions 1-4, 2-5 

Arithmetic operators 1-4, 2-5 

Arrays 1-5, 3-3 
I AS parameter K-3, K-5 

ASC function 5-4 
I ASCII mode 5-4, A-1, K-3, K-5 

ASL function 4-8 

ATN function 5-2 

ATTACH command D-2 
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BASIC control statement 12-1 
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BASIC subsystem 10-1 

BATCH operations 

Control statement 12-1 

Deck structure 12-1 
BATCH subsystem 10-1 
BATCH terminal processing 

NOS 12-5 

NOS/BE 12-5 
Binary I/O functions 

LOC 7-9 

LOF 7-9 
Binary I/O statements 

Random access 7-2, 7-6 

READ 7-7 

SET 7-8 

WRira 7-7 
Blanks 2-1 
Branching 

GOTO statement 4-1 

IF statement 4-2 

IF... THEN... ELSE 4-3 

ON GOTO statement 4-2 
BRESEQ command 11-5 



CALL statement 6-3 
CHAIN processing 6-6 
CHAIN statement 6-5 
CHANGE command D-2 
Character sets 

NOS or ASCII 128- A-1 

NOS/BE ASCII 128- A-2 

63- or 64- A-1 
CHR$ function 5-4 
CID (see CYBER Interactive Debug) 
CLK function 5-4 
CLK$ function 5-4 
CLOSE statement 7-4 
Coded format files 

DELIMIT statement 7-12 

Image 7-17 

INPUT filename 7-2 

INPUT statement 7-10 

MARGIN statement 7-24 

OUTPUT filename 7-2 

PRINT statement 7-13 

PRINT USING statement 7-15 

Standard print formats (numeric and 
string) 7-13 



Comments 

REM statement, remarks 3-4 
Tail comments 3-4 
Compound relational expressions 2-7 
Concatenation 2-6 
Constants 

Numeric 2-2 
String 2-3 
Control statement parameter examples 12-4 
COS function 5-2 
COT function 5-2 
CR 7-12 
CYBER Interactive Debug (CID) 

Changing and testing program values 
IF command for CID 9-7 
LET command for CID 9-7 
Displaying program variables 
LIST VALUES command 9-6 
MAT PRINT command for CID 9-6 
PRINT command for CID 9-6 
Entering and exiting the CID environment 9-2 
Executing under CID control 9-3 
Introduction 9-2 
Other commands and features 9-7 
Referencing BASIC line numbers and variables 
Line numbers 9-3 
Variables 9-3 
Resuming program execution 
GO command 9-3 
GOTO command 9-3 
STEP command 9-4 
Setting and clearing breakpoints and traps 
Breakpoint commands 

CLEAR BREAKPOINT 9-4 
SET BREAKPOINT 9-4 
Default traps 



ABORT 9-6 




END 9-6 




INTERRUPT 


9-6 


Trap commands 




CLEAR TRAP 


9-5 


SET TRAP 9 


1-5 



Data file usage 

NOS 10-1 

NOS/BE 11-4 
DATA statement (BASIC I/O) 1-4, 7-25 
DAT$ function 5-4 
Debugging 9-1 
Decimal constants 2-2 
Deck structures 

Compile and execute 12-1 

Compile, load, and execute 12-1 
DEF statement 5-11 
DEFINE command D-2 
DELIMIT statement 7-12 
DET function 5-2, 8-8 
Diagnostics 

Compile time B-2 

Dayfile B-1 

Execution time 

Error number B-11 
Message B-5 
DIM statement 3-3 
Direct access file (NOS) D-2 
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EDITOR 1-14, 11-1 

END statement 1-3 , 3-5 

Entering a program 

NOS 10-1 

NOS/BE 11-1 
Error and interrupt processing 

ASL function 4-8 

ESL function 4-8 

ESM function 4-9 

JUMP statement 4-6 

NXL function 4-9 

ON ATTENTION statement 4-5 

ON ERROR statement 4-6 
Error messages (see Diagnostics) 
EXP function 5-2 
Exponential constants 2-2 
Expressions 

Arithmetic 1-4, 2-5 

Relational 1-4, 2-6 

String 2-6 
External programs 

CHAIN statement 6-5 
External subprograms 

CALL statement 6-3 



File access methods 7-2 

File control commands D-1 

File ordinal 7-3 

FILE statement 7-3 

Files and Internal data blocks 
APPEND statement 7-6 
CLOSE statement 7-4 
DATA statement 7-25 
FILE statement 7-3 
IF END statement 7-5 
IF MORE statement 7-5 
NODATA statement 7-4 
RESTORE statement 7-4 

FNEND statement 5-13 

FOR statement 1-5, 4-3 

Format 
Image 

Fields 7-18 

Order restrictions 7-20 
Special cases 7-22 
Output format, numeric 7-13 
Output format, string 7-13 
Print zoning 7-14 
Statement structure 2-1 

Functions 

Mathematical functions 5-1 
Referencing functions 5-1 
String functions 5-4 
System functions 5-3 
User-defined functions 5-10 



GET command D-2 

GOSUB statement, branching 6-1 

GOTO statement 1-3, 4-1 



IF END GOTO statement 7-5 
IF END THEN statement 7-5 
IF MORE GOTO statement 7-5 
IF MORE THEN statement 7-5 
IF statement 1-3, 1-5, 4-2 
IF... THEN... ELSE statement 4-3 
Image statement 

Definition 7-17 

Fixed-point format 7-18 



linage statement (Contd) 

Floating-point format 7-18 

Integer format 7-18 

Neuter 7-18 

Order restrictions 7-20 

Sign and edit options 7-19 

Special cases 7-22 

String format 7-18 
Indirect access file (NOS) D-2 
In-line editing commands I-l 
INPUT statements 

INPUT 1-8, 7-10 

MAT INPUT 8-10 
INT function 5-2 
Integer constant 2-2 
Internal Data Table I/O statements 

DATA 7-25 

READ 7-26 



JUMP statement 4-6 



LENGTH (LEN) function 5-5 
LET statement 1-2, 3-1 
LGT function 5-2 
Library D-1 
Line numbers 1-2 
LIST command D-1 
Lists and tables 1-5 
LOC statement 7-9 
Local files D-1 
LOF statement 7-9 
LOG function 5-2 
Logical operators 2-7 
Login procedure (NOS) 

lAF 1-10 

Time-sharing 1-12 
Login procedure (NOS/BE) 1-14 
Logoff procedure (NOS) 

lAF 1-11 

Time-sharing 1-12 
Logoff procedure (NOS/BE) 1-16 
Looping 

FOR... NEXT statements 1-5, 4-3 

IF GOTO statements 1-5 
LPAD$ function 5-6 
LTRM$ function 5-6 
UiJRC$ function 5-7 



MARGIN statement 7-24 

MAT INPUT statement 8-10 

MAT PRINT statement 8-11 

MAT PRINT USING statement 8-12 

MAT READ statement 8-9 

MAT WRITE statement 8-9 

Matrix arithmetic 
Addition 8-3 
Assignment 8-2 
Multiplication 8-4 
Scalar multiplication 8-4 
Subtraction 8-3 

Matrix declaration 8-2 

Matrix definition 8-1 

Matrix functions 

Determinant (DET) 8-8 
Identity matrix (IDN) 8-6 
Matrix inversion (INV) 8-7 
Matrix transposition (TRN) 8-8 
One matrix (CON) 8-5 
Zero matrix (ZER) 8-6 

Matrix Input/Output (I/O) 8-8 



Index-2 
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Matrix Input/Output (I/O) statements 
MAT INPUT statement 8-10 
MAT PRINT statement 8-11, 9-1 
MAT PRINT USING statement 8-12 
MAT READ statement 8-9 
MAT WRITE statement 8-9 

Matrix operations 8-1 

Matrix redimenslonlng 8-2 

MAX function 5-2 

MIN function 5-2 

Multiple-line functions ( DEF . . . FNEND ) 5-13 

ND D-1 

Nested loops 4-5 

NEW command D-1 

NEXT statement 1-5, 4-3 

NODATA statement 7-4 

NOS commands 

ATTACH D-2 

CHANGE D-2 

DEFINE D-2 

GET D-2 

LIB 1-11, D-2 

LIST D-1 

ND D-1 

NEW 1-11, D-1 

OLD 1-11, D-2 

PURGE D-1 

REPLACE 1-14, 10-1, D-2 

RESEQ 10-4 

RETURN D-1 

RUN 1-11, D-1 

SAVE 10-4, D-2 
NOS file handling 

Direct access permanent files D-2 

Indirect access permanent D-2 
NOS terminal operations 10-1 
NOS/BE commands 

BRESEQ 11-5 

EDITOR 1-14, 11-1 

FETCH 1-17 

FORMAT 1-15, 11-1 

RUN 1-16 

SAVE 1-17, 11-1 
NOS/BE terminal operations 11-1 
Numeric constants 2-2 
NXL function 4-9 



OLD command 1-11, D-2 
ON ATTENTION statement 4-5 
ON ERROR statement 4-6 
ON GOSUB statement 6-2 
ON GOTO statement 4-2 
Operations 

BATCH operations 12-1 

Terminal operations under NOS 10-1 

Terminal operations under NOS/BE 11- 
Operators 

Arithmetic 2-5 

Relational 2-6 
OPTION statement 3-2 
ORD function 5-7 
Output 

Examples H-1 

Numeric formats 7-13 

Print zoning 7-14 

String format 7-13 



Permanent file access 7-3 

Permanent file (NOS) D-1 

POS function 5-7 

Predefined functions 5-1 

Primary file D-1 

PRINT statements 
MAT PRINT 8-11 
MAT PRINT USING 8-12 
PRINT 1-2, 7-13 
PRINT USING 7-15 

Print zoning 7-14 

Program structure 2-1 

Program termination 
END statement 3-5 
STOP statement 3-4 

PURGE command D-1 



Quoted strings 2-3 



Random access 7-2, 7-6 

Random number generation 5-1 

RANDOMIZE statement 5-3 

READ statements 

MAT READ statements 8-9 

READ statement 1-4, 7-7, 7-26 

Redimenslonlng 8-2 

Relational expression operators 1-4, 2-6 

Relational expressions 1-4, 2-6 

REM LIST 12-4 

REM statement (remarks) 1-2, 3-4 

REM TRACE 9-1 

Remote terminals (TTY) 10-1 

Renumbering BASIC lines 10-4, 11-5 

REPLACE command 1-14, 10-1, D-2 

RESEQ command 10-4 

RESTORE statement 7-4 

RETURN command D-1 

RETURN statement 6-2 

RND function 5-2 

ROF function 5-2 

RPAD$ function 5-8 

RPT$ function 5-8 

RTRM$ function 5-9 

RUN command D-1 



Sample programs H-1 

SAVE command 10-4, D-2 

Secondary file D-1 

SET statement 7-8 

SETDIGITS statement 7-24 

SGN function 5-2 

Significand 2-2 

Simple relational expressions 2-6 

Simple string variables 2-3 

SIN function 5-2 

Single-line functions (DEF) 5-11 

SQR function 5-2 

Statement structure 2-1 

STOP statement 3-4 

String comparison 2-7 

String concatenation 2-6 

String constants 2-3 

String expressions 2-5 

String functions 5-4 

String output formats 7-13 

STR$ function 5-9 
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Subprograms 6-3 
Subroutines 

GOSUB statement 6-1 
ON GOSUB statement 6-2 
RETURN statement 6-2 
Subscripted variables 2-4 
Substring addressing 2-4 
System functions 5-3 



TAB function 7-15 

Tall comments 3-4 

TAN function 5-2 

Temporary files D-1 

Terminal Input /Output (I/O) 1-8 

Terminal operations 

NOS 10-1 

NOS/BE 11-1 
Test and branch statements 

GOTO statement 4-1 

IF statement 4-2 

IF... THEN... ELSE statement 4-3 

ON GOTO statement 4-2 



TEXT mode 10-1 
TIM function 5-4 



Unquoted strings 2-3, 7-25 
HPRC$ function 5-9 
User-defined BASIC subroutines 6-1 
User-defined functions 5-10 
Using data files 10-1, 11-4 
USR$ function 5-4 



VAL function 5-9 
Value assignment 3-1 
Variables 

Simple, numeric 2-3 

Simple, string 2-3 

Subscripted 2-4 

Substring addressing 2-4 



WRITE statements 
MAT WRITE 8-9 
WRITE 7-7 



• Index-4 
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TAPE 



BASIC CONTROL STATEMENT PARAMETERS 



Compiler Llstable Output 
BL Burstable Listing Control 
omitted 

BL 



Suppresses page ejects on output 

listing. 

Does not suppress page ejects on 

output listing. 



E Compile-Time Error File 

omitted L parameter file. If no 

L file, OUTPUT. 
E File ERRS, 

E=lfn File ifn. 

EL Error Level Control 



omitted or 

EL=W 

EL=F 



Fatal and warning to 
E parameter file. 
Fatal only to E file. 



Compile-Tlme List File 

omitted Default file OUTPUT. 

L File OUTPUT. 

L=lfn File Ifn. 

L=0 None. 



LO Listing Options 



omitted or 
LO or 
LO-S 
L0=0 

L0=0/0 
L0=0 



Source listing on L 
parameter file. 

Object listing on L 

parameter file. 

Object listing only on L file. 

None. 



PD Print Density Control 



omitted 

PD=6 
PD=8 or 
PD 



Default on L and K 
parameter files. 
Density 6. 
Density 8. 



PS Page Size Control 

omitted Default to current page size. 
PS=n (n is 4 < n < 32768) 



Compiler Input 

AS ASCII Character Set 

Normal (non-ASCII). 

Encoded and run in ASCII. 
Complle-Tlme Input 



omitted or 

AS-0 

AS 



omitted 

I 
I=lfn 



File INPUT. 
File COMPILE. 
File Ifn. 



Compiler Binary Output 
B Binary File 

None. 



omitted or 

B=0 

6 

B=lfn 



File BIN. 
File Ifn. 



DB Debug, Trace, and Force Binary 
Generation and/or Program 
Execution 

omitted None activated. 

DB=0 Debug and trace not activated. 

DB Default(DB=B/DL). 

DB=0/B Execute normally regardless 

of compilation errors. 
DB=0/DL Program tracing with REM Trace. 
DB=0/ID Interactive debug (CID tables 

and special code) . 
DB=0/TR Trace all statements. 
DB=TR Same as DB=B/DL/TR. 
DB=ID Same as DB=B/DL/ID. 



Program Execution 

AS ASCII Mode 

omitted or 

AS=0 

AS 



Run in normal (non-ASCII) mode. 
Run in ASCII. 



DB Debug and Trace 

(see Compiler Binary Output ) 



GO Execution Control 
omitted 
GO 



Execute without loading 
if B not specified. 
Execute compiled program, if 
no compilation errors. 
G0=0 Inhibits execution. 



Execution-Time Input File 

Default file INPUT. 



omitted or 

J 

J-lfn 

J-0 



Default file Ifn. 
None. 



K Execution-Time Print File 

omitted Default file OUTPUT. 
K Same as omitted. 

K=lfn Default file Ifn. 

PD Print Density Control 

(see Compiler Llstable Output ) 
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